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FOREWORD 



The PDP-12 Signal Averager is derived from 
the LAB- 8 Basic Averager program. (DEC-LB- 
U21B) . The primary difference between the 
two is the manner in which each uses its 
hardware; the LAB-8 Basic Averager utilizes 
AXj2f8 hardware and the PDP-12 Sianal Averager 
runs via the KW12A clock and ADC. To the 
user, program operation and performance is 



almost identical. 




1 . 0 ABSTRACT 



The PDP-12 Signal Averager Procrram digitizes, displays, 
and averages analog signals at rates from 55 to 4095 microsec 
onds/point/channel . The program is entirely core resi- 
dent. The user can select and adjust, on-line, the 
sampling rate, the number of sweeps, and the delay via 

r r ) 

the Teletype. By modifying the Signal Averager source 

by the method described in Appendix A, the user can build 
the program to his particular needs. 

2. 0 MINIMUM REQUIREMENTS 

PDP-12A computer with 4K of core memory 
KW12A Clock 

1 LAP6-DIAL^ system tape with the Siqnal 
Averager source and binaries (DEC-12-YZAA-UO) . 

3.0 LOADING PROCEDURE 

All binaries are loaded using the DIAL Loader by the com- 
mand: 



-►LO NAME, UNIT 2 



Select the appropriate NAME for any one of the three ver- 
sions of the program from the following chart. 



NAME 


# CHANNELS 


DATA POINTS 


SIGAVGl 


1 


1000 


SIGAVG2 


2 


500 


SIGAVG4 


4 


250 



tR) 

1 Teletype is a registered trademark of Teletype Corporation 
^LAP6-DIAL is hereafter referred to as DIAL 
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The UNIT is the number of the tape unit with the Signal 
Averager binaries. If the Signal Averager program, has 
been properly loaded, it will respond on the Teletype with 
a carriage RETURN, LINE FEED and R: 

4.0 USING THE SIGNAL AVERAGER 

4.1 The leads from the experiment to the PDP-12A must 

be connected properly to assure correct functioning. The 
sync input should always be connected to channel one of the 
KW12A. If only one signal is being averaged, only analog 
input channel 10 is used. If more than one input is being 
sampled, the analog inputs should be connected sequentially, 
beginning with analog input channel 10. For example, if 
four inputs are being averaged, they should be connected 
according to the following scheme: 



ANALOG INPUT CHANNEL INPUT # 



10 1 

11 2 

12 3 

13 4 



4.2 The user can create an individualized version of 
the program by modifying the Signal Averager source 
with the DIAL Editor. After the chances have been com- 
pleted, the source is assembled and saved by DIAL. This 
procedure is detailed in Appendix A. 

4.3 When the Signal Averager is initialized (either by 
typing CTRL/A, refer to Section 4.7, or by the DIAL Loader, 
refer to Section 3.o), it will respond by printing R: on 
the Teletype. 
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The sampling rate is being requested via the Teletype 
after R: . Type a value in the range 55 to 4095 micro- 
seconds/point and press the RETURN key. 

4.4 The Signal Averager will always sample at rates 
that are multiples of 2.5 microseconds. The program 
sets the sampling rate to the smallest multiple of 2.5 
that is greater than or equal to the requested rate. 
Consider the following table 



REQUESTED RATE 

60 

61 

62 

63 

64 

65 



ACTUAL RATE 
60 

62.5 

62.5 

65 

65 

65 



The sampling rate on any channel is the clock rate 
times the number of channels in use. 

The initial averaging operation and the occurrence of 
a sync are not simultaneous events; the elapsed time 
between occurrence of a sync and initialization of the 
first A to D conversion varies between 52 and 160 micro- 
seconds . 



4.5 The Averager will print N:. Respond by typing the 
number of sweeps desired in the average r followed by a 
carriage RETURN. A value of zero is treated as 4096. 




CAUTION: Because of space limitations, the Signal Averager 

program does not recognize the RUBOUT key nor does it check 
for illegal values on input. Be certain that arguments 
typed in are valid and accurate. If an error has been made 
in typing, type CTRL/Q which will cause all the questions to 
be repeated. 

4.6 The program will now type D: . Answer with the delay in 
terms of the clock rate. Thus, if the clock rate is 60 micro- 
seconds and it is desired to delay 600 microseconds after 

the sync pulse before sampling begins, type 10 and press 
RETURN. Again, if a typing error is made, type CTRL/Q and 
the number of sweeps, rate, and delay can be respecified. 

4.7 It is possible to alter these parameters when the 
program is averaging by typing CTRL/A. The sequence of 
requests, R, C, D, will be repeated. 

4.8. The program will not begin looking at the input siq- 
nal. A colon and two line feeds will be generated and the 
input signal will appear on the oscilloscope. If neces- 
sary, adjust the KW12A threshold control to obtain a reli- 
able sync pulse . 

4.9 To begin averaging, press RETURN. The summation will 
then be shown as it accumulates. 

4.10 The accumulated sum may be cleared at any time by 
typing CTRL/Z. 

4.11 Type V at any time to switch from viewinq the input 
to viewing the summation of the sweeps or vice versa. Type 

X to expand the viewing scale. Type C to contract the 
viewing scale of the summation. The input data cannot be 
scaled . 
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4.12. Press LINE FEED to pause averaging at any point 
and then press RETURN to resume. Typing LINE FEED always 
forces the display to the view inputs mode. The sampling 
will continue until the number of sweeps requested in the 
parameter setup have been taken. The average may be pre- 
maturely terminated by striking CTRL /Q. 

4.13 If the average has been completed, it may be plotted 
by typing P to enter plot mode. Turn on the X-Y recorder, 
and press the RETURN or LINE FEED key to move the pen to 
the beginning of the curve. (The beginning of the curve 

is the X , Y origin defined in display word 2 of the job 
list for a given average. Refer to Appendix A.) Type 
RETURN or LINE FEED to commence plotting. To replot the 
data or to plot the next of a series of curves, press 
RETURN or LINE FEED to move the pen to the beginnina of 
the curve. Press RETURN or LINE FEED aaain to start 
plotting. Terminate plot mode by typing P and turning 
off the recorder. Pressing RETURN will reactivate the 
display. 

4.14 A completed average may be typed on the Teletype by 
typing the character T . T: will be printed in response. 

If all of the accumulated averages are to be printed, type 
0 or a carriage RETURN. If it is desired to type selec- 
tively one entire channel or selective portions of a 
channel, type 1, 2, 3, or 4 plus RETURN to type out the 
first, second, third or fourth channel in the display. 

L: will then be printed. Respond with the low limit 
data point number and press RETURN. H: will then be 
printed. Answer by typing the high limit data point to 
be typed out and then pressing RETURN. 
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4.15 The first two numbers typed out represent the 
number of sweeps included in the average and the scale 
factor, respectively. The scale factor is the power of 
two by which the data has been scaled. If the number of 
sweeps is a power of two, then by typing C and X while 
the display is active, one can adjust the gain until the 
scale factor is appropriate for the number of sweeps because 
two raised to the scale factor power is equal to the number 
of sweeps. The typeout of data points will then be in 
millivolts as seen at the analog inputs. 

4.16 If it is desired to terminate typeout at any time, 
type CTRL/Q. 

4.17 If another set of sweeps is to be added to the 
average already accumulated after a group of sweeps has 
been completed, type CTRL/R to retain the present average 
and to reinitialize for more averaging. 

4.18 To begin averaging after reinitialization has taken 
place , type RETURN . 



5.0 LINCtape Option 

The PDP-12 Signal Averager will allow the user to store 
the results of an average on LINCtape by typing W after 
an average has been taken. Note that when the program is 
accepting parameter input (sampling rates, etc.), typing 
results, or plotting, the WRITE command is inactive. After 
typing W , SIGAVG will respond with carriage RETURN, LINE 
PEED and W: indicating it is now waiting for the user to 
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specify a TBLK on unit 1. A tape must be on transport 
unit 1 which is WRITE ENABLEd. Type in the TBLK and press 
RETURN. Characters are echoed as they are typed. If an 
error is made in typing, type CTRL/Q to have the question 
repeated . 

When the Signal Averager receives the carriage RETURN, 
it writes out the averaged data only in signed two's com- 
plement double precision format in sequential TBLKs , 
starting with the requested TBLK. The data on tape runs 
sequentially from the first data word of the first data 
block to the last data word of the last data block. 

Unused words in the last TBLK contain all zeros. When 
the program has finished writing, it generates a carriaae 
RETURN-LINE FEED and prints the last TBLK onto which it 
wrote. Once SIGAVG completes the W command, it reinitial- 
izes and prints R: . A new average may now be computed. 

The LINCtape option will support SIGAVG1, SIGAVG2 , and 
SIGAVG4, but will not support arbitrary user configura- 
tions. For user versions of SIGAVG, the symbol AD CAL# 
must have a value greater than 1### and the symbol ADBUF 
must have a value less than or equal to 4##. (Refer to 
Appendix A) . 



7 




SUMMARY OF TELETYPE COMMANDS 



CTRL/A 

CTRL/D 

CTRL/Q 

CTRL/R 

CTRL/Z 

Carriage 

RETURN 

LINE FEED 

C 

P 

T 

V 

X 

w 



Initialize averaging parameters 



Restart DIAL 



Quit current operation. 



Rerun the last average. 



Zero out all previous results. 



Argument terminator 
Commence averaging 
Position plotter pen 
Commence plotting 

Pause Averaging and start view 
input mode (same as carriage 
RETURN in plot mode) . 

Contract averaged data by a 
power of two. 



Enter Plot mode 
Terminate Plot mode 



Type out average 



Switch from view input to 
view average or vice versa 



Expand averaged data by a 
power of two 



Write on LINCtape 
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APPENDIX A 

GENERATION AND MODIFICATION OF CONTROL 
PARAMETERS FOR THE SIGNAL AVERAGER 



A.l INTRODUCTION 

The Signal Averager program is very general in nature in 
that it can be adapted to a variety of situation^, The 
control parameters accomplish this specific adaptation. 

There are three different binaries available on the 
LINCtape DEC-12-* UZ1A-U0 supplied by the Digital Equip- 
ment Corporation Program Library. Each allows the maxi- 
mum number of points to be taken as the number of channels 
are varied. In some cases, the user may want to decrease 
the number of points taken to realize a shorter period of 
stimulus repetition or to allow core for his own programs. 
He may want to sample some number of channels not covered 
by the existing control parameters. If the machine con- 
tains more than 4K of memory, the user may wish to fully 
utilize the core available to him. Each of these situa- 
tions is easily implemented with an understanding of what 
control parameters are and how they can be generated or 
modified. Before modification is attempted, a knowledcre 
of the DIAL Editor and Assembler is required and may be 
gained from the LAP6-DIAL Manual, DEC-12-SE2B-D. 

Note that two source programs are also included on the 
Signal Averager LINCtape; CNTRL2 is for a two-channel 
averager and CNTRL4 is for a four-channel averager. These 
two sources demonstrate the modifications made to the Sig- 
nal Averager to obtain a two or four channel average. 
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Briefly, the procedure involves using the Editor program 
to make the necessary changes in the source which is then 
assembled and the binary saved on a DIAL tape. The de- 
tailed procedure follows and assumes that the user is 
familiar with PDP-8 programming techniques. 

To edit the PDP-12 Signal Averager, bring the source into 
the DIAL Working Area by executing the command 

-*AP SIGAVG, UNIT 2 

The relevant portion of the source starts with the com- 
ment USER MODIFICATION STARTS HERE. It begins at approxi- 
mately line 2657. Refer to the listincr at the end of this 
manual . 
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A. 2 Modifying the Symbols 



The symbol NCHAN defines the number of analog inputs and 
the symbol POINTS defines the number of data points per 
channel (analog input) . The maximum number of channels 
is five; the maximum number of points is 1000. Tbere is 
a further restriction that the product of the number of 
channels and the number of points be less than or equal 
to 1000 on a 4K P DP-12. For example, if the number of 
channels (NCHAN) were set equal to 4, then the maximum 
allowable number for the symbol POINTS would be 250. 

The symbol LNBUF defines the total number of points 
across all channels and it is equal to the product of 
NCHAN and POINTS. For a three channel signal averager 
LNBUF would be defined as; 

LNBUF=POINTS+POINTS+POINTS 



Symbols cannot be defined as products, such as LNBUF= 
POINTS *NCHAN , because the multiplication operation is 
not recognized by the DIAL Assembler. 

A. 3 Modifying the Job List 

The PDP-12 Signal Averager uses "job list processing". 
Each average taken has a job list associated with it 
that defines the parameters of that particular averaae. 
Job lists are seven words long. If there is more than 
one, they follow each other sequentially in memory. 
Following the last list there must be a word containing 
zeros. The symbol "JLIST" designates the total length 
of the string of job lists. This is equal to 7*NCHAN+1 
and must be specified as the result of a summation or 
one decimal number . 
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The symbol MEMTOT defines the amount of core available. 
It appears in the source as 



*MEMTOT 

9 

The number following MEMTOT indicates the additional 
4K stacks of memory existent on this machine so that 
an 8K machine would have 

* MEMTOT 
1 

The next area that may be edited is the job list it- 
self. Until this point, all variables that have been 
defined have been common to all the averages in this 
experiment. Now, each average must have its particular 
parameters defined. The first list will always start 

at location LOCORE (0230 ) . After the end of the last 

8 

job list, a zero word is inserted to indicate the end 
of the lists. 

Word 1: Bit 0 : always = 0 

Bits 1-5 : specify the analog 

input number per- 
taining to this average 

The configuration for bits 1-5 may be determined from 
this table: 

analog input input (logical) configuration of 

channel channel Bits 1-5 



10 


0 


00 


000 


11 


1 


00 


001 


12 


2 


00 


010 


13 


3 


00 


011 


14 


4 


00 


100 



(Any other bit configuration for a channel is illegal) 
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Word 2 : 
Word 3 : 



Word 4 : 



Word 5 : 



Word 6 : 



Bit 6 
Bits 7-11 

AVG 

- POINTS 



always = 1 

indicate the position of this 
average in the sampling Isit 
(usually the same as bits 1-5) 

(not to be altered by the user) 

assembles to be the negative 
of the number of data points 
in the block of this average 



62nl change data field instruction, 

CDFN (=62nl) where n is the 
number of the data field (i.e., 
the block of 4K; n=0 for 1st 
4K, n=l for 2nd 4K) where the 
first data point for this aver- 
age is to be stored. 



ADCALN where N is the number of the 

average. First average is 
always zero. This is the ad- 
dress -1 of the beginning of 
the data block belonging to 
this average and is defined 
as : 



ADCALJ3 = ADBUF+LNBUF 
ADCAL1 = ADCAL/J+BLKLEN+l 
ADCAL2 = ADCAL1+BLKLEN+1 



In general, for k greater than 

0 : 

ADCALk = ADCAL (k-1) +BLKLEN+1 



Display Word 1 
(see below) 

Display Word 2 
(see below) 



Word 7 : 




A. 4 Modifying the Channel Display List 



The channel display list contains two words for each 
average. These are the same as words 6 and 7 of the 
job list. In assembling, the channel display list comes 
directly after the end-of-word list in the job list. 

Display Word 1 



The leftmost 8 bits of display word 1 are the x-increment 
used between points in the display cycle. The first four 
of these 8 bits are the integer part of DELTAX, the last 
four are the fractional part. 

Since the display scope has a maximum resolution of 512 
points in each direction, it is useful to be able to use 
a fractional increment* For example, if the average 
contained 1024 points, an increment of 0.5 ^q (0000.1000 2 , 
using 8 bits) would just fill the scope with the display. 
An increment of 0.5^ will display two successive data 
points at the same x location. An increment of 0,25^^ 
(0000. 0100^) will display four successive data points 
at each x position, etc. 

A simple formula can be used to determine the DELTAX 
value to use, given the number of POINTS and PC, the 
fraction of the screen that you wish to cover with the 
display : 



DELTAX = 



512 * PC 
POINTS 



The last four bits of display word 1 are the Y scale 
factor (YS) for the particular average. As each data 
point is displayed, its value is divided by 2^ s . 
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Thus, for full height display, YS would be zero. 

For half height it would be one, etc. 

Display Word 2 

The first six bits of this word are the X origin for 
the average display? the last six bits are the Y origin. 
Both of these numbers are multiplied by 10 g before being 
used as starting points for the display. This makes it 
possible to start the display anywhere on the screen. 

The first bit of the Y origin is interpreted as a sign 
bit so that it is possible to start below zero. For 
instance, a Y origin of -200 g would imply a 60 g as the 
low order end of display word 2. 

Generating the Display Words 

The following is an example of how to set up the display 
words for a 500 point, 2 channel, signal averager. It 
is assumed that the averages will be displayed one above 
the other, and on the full width of the screen. 

DELTAX: Since there are 500 points in each sweep, the 

formula above gives DELTAX = 512/500 = 1.024^ = 0001. 000^, 
to 8 bit accuracy. 

YS : Each average should cover half the screen so each 

data point value must have been divided by 2 '*". There- 
fore YS should be 1. Display word 1 is now: 

00010000 0001 2 = 0401 

DELTAX YS B 

XZ : Since both traces start at the left hand side of the 

scope, XZ will be / for both averages. 
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To define an address in upper core, the user must type 
in the pseudo-op FIELD n, where n is the data field. 

All addresses specified thereafter will be located in 
that data field (the first 4K is field 0 ) . 

When a data block lies in both upper and lower core, the 
PDP-12 Signal Averager switches between data fields by 
a process called "linking." The linking is accomplished 
by a set of three linkage words at the end of the block 
lying in the lower field. These inform the Signal Averager 
of the number of data points (not core locations or values) 
that are needed to complete this average, the data field 
in which these points lie, and the location -1 of the 
first word in the next data block. These linkage words 
must be supplied by the user. 

The upper limit of the data storage area in the lower 
4K is 6177. The Signal Averager program resides above 
this, so at some point before this limit, the linkage 
words must be inserted. (After assembly, the user should 
check to see that these words were placed in locations 
lower than 6177.) 

It is important to note here that Word 3 of the job 
list pertaining to this average should reflect only the 
number of points found in the first part of the data 
block (i.e., it must not include the point count con- 
tained in the part of the block that is in upper core) . 

The CDF instruction and ADCAL word of the job list should 
refer to the address and field of the first data point 
contained in the part of the block which is in lower core. 
The linkage words should contain the information on the 
points that lie in upper core. 
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YZ:. The first average must cover the top half of the 
scope (0-377 o ) and its zero point should then be 200 . 

o o 

This means that the second half of display word 2 will 
be 20g for this average. Similarly, the second average 
must have the Y origin at -200^, and the second half of 
the word will be -2C> 8 = 60g. The channel display list 
will now appear as: 

/CHANNEL DISPLAY LIST 
*CHLIST + 1 

0401 /THESE WORDS ARE FOR 

0020 /FIRST AVERAGE 

0401 /THESE ARE 

0060 /FOR SECOND 

0000 /THIS IS END OF LIST 

The last symbols to be defined are the end of block 
symbols. There must be a zero word following each 
data block for the program to work properly. The cod- 
ing is ADCALk+BLKLEN-f 1 ; k = 0,1,..., n-1 for a 4K n channel 
averager. (Refer to line numbers 2734 and 2735 of listing 
in the back of this manual.) 

A. 5 Other Possible Changes 

The easiest change to make is the number of points taken 
in an average. The only changes necessary are POINTS and 
the DELTAX value. The Assembler effects the consequent 
changes . 

It is possible to enable the PDP-12 Sianal Averager to 
use more than 4K of core. Word 4 of the job list defines 
the data field of the first point in t he data block. ADCALN 
(the address -1 of that data block) directs the PDP-12 
Signal Averager within that data field. Thus, if a data 
block is in upper 4K, only the CDF instruction need be 
changed. (ADCALN may have to be defined differently, refer 
to page A-ll . ) 
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A. 6 An Example 



To set up a single channel, 2000 point signal averager, 
the changes required are: 



1. POINTS = 2000 

2 . *MEMTOT 

1 



3. In the job list Word 3 should be minus the 
number of points contained in lower core. 

In this case, 500 points will be stored in 
lower core (although a value greater than 
500 could have been chosen) . Remember that 
the upper bound for the data buffer is 6177. 



DECIMAL 

OC?Ai° 



4. Word 6 - DELTAX must be changed to correct 
the display for the increased number of 
points. # of points - 2000 for full screen 
display (PC=1) . 



DELTAX = 512*1 = 0.256, A = 0.203 
2000 1 

In 8 bits accuracy this value is 

PP00.01P0 

integer fractional 

part part 



the rightmost four bits for Y scale are 
(?w> . Word 6 becomes : 

DELTAX YS 

pppjz.pipp pppp = pipp 8 

5. The first channel display word must also be 
changed to 0100 . 

6. The linkage words must be located directly 
after the last value pertaining to the last 
point in this block. This locations is 
determined by starting with ADCAL$ . This is 
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r 



the address -1 of the first word of the 
data block. The first word of the data block 
contains the number of sweeps and the fol- 
lowing words contain the data. Therefore, 
the last location is equal to: 



ADCAL0+1+ (# of locations needed 
for data storage) +1 



In this case, 500 points are stored in this block. Each 
point needs two words for the sum. Therefore, the address 
of the word following the data is: ADCALJ9 + 1 + 1)6)6#^ + 1. 



Linkage 


Word 


1: 


-1500 


- # points in next block 


Linkage 


Word 


2 


6211 8 


CDF for next field 


Linkage 


Word 


3: 


"io 


location -1 of first word 



NOTE : The value of linkage word 3 was chosen arbitrarily. 



Define these in the following manner: 



DECIMAL 

*ADCAL / 0 + 1 + 1 fififi + 1 
-1500 
OCTAL 
6211 
DECIMAL 
99 



If the origin (ADCAL instruction) is greater than 6175, 
the data buffer will overlap the core area reserved for 
this program. 



A- 11 




Now the end of block word must be inserted. It lies 
in field 1, 1500 points or 300^ words from the start 
of the buffer. There is no sweep count included in 
this block so the location of the word following the 
last data word is: 

(starting address -1; specified in linkage word 
3 = 99^ Q ) + 1 + (number of words used for 

storage; in this data block = 1500.^*2 ) = 

99 + 1 + 3000 = 3100 Q . 

In this case the location is 3100^. 

Define this by the following: 

FIELD 1 /CHANGE FIELDS 

DECIMAL 
*3100 
0 

OCTAL 

FIELD 0 /RESET FIELD FOP PROPER 

/ASSEMBLY OF REMAINING CODE 

The next block of data (if any) will be entirely in 
field 1. Its starting address -1 is equal to the 
end-of-block word defined above, rather than at ADCAL1 
ADCAL0+BLKLEN+1 as is the case with 4K. 

The easiest way to define the new ADCAL1 is by saying 
(for the above example) 



DECIMAL 

ADCAL 1=9 9 + 14-1500+1500 
OCTAL 



Any data blocks after this one may have their ADCAL 
words defined as in 4K (e.g., ADCAL2=ADCAL1+BLKLEN+1) . 



A-12 




2646 

2647 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 
2660 
2661 
2662 

2663 

2664 

2665 

2666 
2667 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2700 

2701 

2702 

2703 

2704 

2705 

2706 



To assemble the modified source, use the DIAL Assembler. 
After assembly, the binary must be saved by the following 
command : 

+SB NAME, UNIT, 

The listing generated by these changes for a 2000 point, 
single channel averager follows. 



/USER MODIFICATION STARTS HERE 
/EXAMPLE OF A 1 CHANNEL 2000 POINT 
/SIGAVGER 







DECIMAL 
NCHAN= 1 


/=NUM OF ANALOG 
/INPUTS 






PO I NTS=2000 


/=NUM OF POINTS 
/PER CHAN 






BLKLEN=P0 I NTS+POINTS+1 






LNBUF=POINTS 


/=POINTS*NCHAN 






JL I ST=7+ 1 


/=7 WORDS PER 
/ JOB+EOL WORD 






CHLEN=NCHAN+NCHAN+ 1 








/2 WDS FOR EACH 
/CHAN+EOL 






CHLIST=L0C0RE+JLIST-1 
ADBUF =CHLEN+CHL I ST 








/BUFFER STARTS 
/AFT CH LIST 






♦MEMTOT 


/NUM OF ADD 


0020 


0001 


1 


/4K STACKS 


0021 


5744 


HIC0RE-L0C0RE-4 
/JOB LIST 
OCTAL 
*LOCORE 




0230 


0040 


0040 


/0C1) CHAN C 5 ) 

/ 1 C 1 > CHORD ( 5 ) 


0231 


0400 


AVG 

DECIMAL 


/TYPE C8 > 


0232 


7014 


-500 


/-NUM OF DATA 
/POINTS IN BLK 






OCTAL 




0233 


6201 


6201 


/CDF 0 
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2707 






ADCAL0=ADBUF +LNBUF 


2710 








/LOC-1 OF 1ST 


27! 1 








/POINT 


2712 


0234 


4162 


ADCAL0 


/IS RIGHT AFTER 


2713 








/ADC BUFFER 


2714 


0235 


0100 


0100 


/DEL TAX (8) 


2715 








/YS<4> 


2716 


0236 


0000 


0 


/X0 ( 6) * Y0 C 6 > 


2717 


0237 


0000 


0 


/END OF LIST 


2720 








/CHANNEL 


2721 








/DISPLAY LIST 


2722 


0240 


0100 


0100 


/DELTAXC8) 


2723 








/YSC 4) 


2724 


024! 


0000 


0 


/X0 ( 6 ) * Y0 ( 6 ) 


2725 


0242 


0000 


0 




2726 






DECIMAL 




2727 






*ADCAL0+1+1000+1 


/INSERT 


2730 








/LINKAGE WORDS 


2731 








/HERE 


2732 


6134 


5044 


- 1 500 


/- NUM OF 


2733 








/POINTS IN 


2734 








/NEXT BLOCK 


2735 






OCTAL 




2736 


6135 


621 1 


621 1 


/CDF 1 


2737 






DECIMAL 




2740 


6136 


0143 


99 


/LOC-l OF 1ST 


2741 








/WP IN NEXT 


2742 








/BLOCK 


2743 






FIELD 1 


/CHANGE FIELDS 



2744 


DECIMAL 




2745 


*3100 




2746 


6034 0000 0 


/END OF BLOCK 


2747 


OCTAL 




2750 


FIELD 0 




2751 


/USER MODIFICATION 


ENDS HERE 



A- 14 




A. 7 HOW TO ACCESS DATA CORE MAP 



Below is a table of the names of several lists and 
buffers and the location on page zero of their 
pointers. For example, the starting location -1 of 
the job lists is found in the location 23. C(23)+l 
is read "the contents of location 23 plus 1." 



AREA 



SIGNAL AVERAGER 



Job List C(23)+l 
CHAN Disp List C (24)4-1 
ADC Buffers A sweep C(27)+l 



Calculation (storage) the location of these 
Buffers is obtained from the 

job list 



A. 8 DATA BLOCK STRUCTURE 



To provide for multiple field machines , the PDP-12 
Signal Averager saves data in linked. In general, 
the Signal Averager will end one block and link to 
another whenever it comes to an end of field. 

An example is shown for N sweeps and M data points 
broken into two data blocks. 
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Words J3-J5 
of Job List 
Entry for 
This Job 



# of Pts. 
in 1st 
Block: -L 

CDF to 1st 
Block 
CDF U 

Loc-1 of 
1st Wrd 
BLK1-1 



BLOCK 1 

(In Data Field U) 



# of sweeps: N 
1st Data Point 
2nd Data Point 
3rd Data Point 




Lth Data Point 




-# of Pts in Nxt 


Blk : L-M 


CDF to next Blk: 


CDFV 


Loc-l of 1st Wd 


of Nxt 


Blk: BLK 2-1 





BLOCK 2 

(In Data Field V) 



L+lth Data Point 



Mth Data Points 
-# In Next Blk : 0 
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A. 9 



USER FLOW CHART 





Parameters : 

# of channels 

# of points 
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INDEX 



Abstract 1 

Analog Input 

Channels 2 

Channels 1 

Channel Display 

List A- 6 

Commands 3 , 8 

Core Map A-15 

Data Block 

Structure A-15 

Delay 4 

Flowchart A-17 

Initialization 2 

Job List A-4 

LINCtape Storage 6 

Loading Procedure 1 

Minimum Requirements 1 
Modifying the Sig- 
nal Averager A~1 

Name 1 

Number of Sweeps 3 

Plot Mode 5 

RIJBOUT 4 

Sampling Rate 3 

Scale Factor 6 

Sync Input 2 

Type Average 5 

Using the Signal 

Averager 2 

View Mode 4 , 5 




0000 


*2 0 




0001 


RHODE 




0002 


/PDF 12 SIGNAL AVERAGER 




0003 


/WITH MTP WRITE SR 




0004 


/9 APR 70 




00 0 5 


/MEMORY BOUNDS FOR FIELD 0 


0006 


LOCORE=230 


/LISTS, BUFERS 


0007 




/DATA BLOCKS 


0010 




/START HERE 


0011 


H I CORE = 6200 


/PROTECTED AREA 


0012 




/BEGINS HERE 


0013 




/AVGING PARAMS 


0014 




/LOCNS 20-64 


0015 




/LIST ADDRESSES 


0016 


AD JL I S = 23 


/START OF JOB 


0017 




/LIST-1 


0020 


AD CH NL =2 4 


/START OF CHANEL 


0021 




/DISPLAY LIST-1 


0022 


A V G = 4 0 0 


/JOB TYPES 


0023 


SD = 1 00 0 




0024 


TRN=1400 




0025 




/JOINT SWEEP 


0026 




/PARAMS 29 LOCS 


0027 


SM AS K= 25 


/STIMULUS (SYNC) 


0030 




/CHANNEL MASK 


0031 


NS WE P = 26 


/-NUM SWEEPS 


0032 




/IN AVERAGE 


0033 


KSYTIM=27 


/-( OF AS I FROM 


0034 




/STIM TO SYNC 


0035 




/POINT -1) 


0036 


AS I =37 


/USEC PER AS I 


0037 


KM OD E = 42 


/KW12 CNTRL REG 


0040 


CLKMOD = 4 3 


/KW12 ENAB REG 


0041 




/SWEEP A LIST 


0042 




/PARAMETERS 


0043 


S A M A =4 4 


/-POINTS ( AS I ) 


0044 




/IN SWEEP A 


0045 




/(EACH CHANNEL) 


0046 


NC H A =4 5 


/NUM OF CHAN 


0047 




/IN SWEEP A 


0050 


ADBUFA =4 7 


/LOCN -1 FOR 


0051 




/START OF ADC 


0052 




/BUFFER -A 


0053 


PLTDLY=50 


/plotter delay 


0054 




/COUNTER 


0055 


CLKCNT=5l 


/CLOCK CNTR 


0056 




/CHANEL COUNTER 


0057 




/AND CONSTANT 


0060 


KCHCNT=52 


/-NO. OF CHAN 


0061 




/IN SWEEP CONST 


0062 


CHCNT=53 


/-NO. OF CHAN 


0063 




/LEFT IN SWEEP 


0064 




/(VARIABLE) 


0065 




/SWEEP A ON LN 


0066 




/PARAMETER 


0067 


KBL A = 60 


/-NUM AS I FROM 


0070 




/SYNC POINT TO 


0071 




/LOGICAL END OF 


0072 




/A -1 


0073 


OCSORT=130 




0074 


TEMP01 =1 46 


/temporary 


0075 


TEMP 02=147 


/STORAGE 




0076 








TEMP03=150 


/REGISTERS 


0077 








TEMP04=l5l 


/146-177 


0100 








TEMP05=152 




0101 








T EMP0 6= 15 3 




0102 








TEMP07=154 




0103 








T EMP1 0 = 155 




0104 








TEMP11=156 




0105 








TEMP12=157 




0106 








TEMP13=160 




0107 








TEMP14=161 




0110 








TEMP15=162 




0111 








TEMP16=163 




0112 








TEMP17=164 




0113 








TEMP20=165 




0H4 








TEMP21=166 




0115 








AR I TH0 = 167 


/TEMP 


0116 








TE MP 22 =1 67 


/STORAGE 


0117 








ARITH1=170 


/AND 


0120 








TEMP23=170 


/MULTIPLE 


0121 








AR I TH2 = 171 


/ACCUMULATORS 


0122 








TEMP24 =171 




0123 








AR I TH3 = 172 




0124 








TEMP25=172 




0125 








ARITH4=173 




0126 








TEMP26=173 




0127 








ARITH5=174 




0130 








TEMP27=174 




0131 








KBDBUF=175 


/TEMP 


0132 








TEMP30=175 


/STORAGE 


0133 








TT YBUP =176 


/AND 


0134 








TE MP 31 =1 76 


/tty-kbd 


0135 








TTYFLG=177 


/BUFFERS 


0136 








TE MP 32 = 1 77 




0137 










/COMBI NEO 


0140 










/OPERATES 


0141 








MTH=CL A CM A CLL 


rtl 


0142 








MT W = CL A CM A CLL 


RAL 


0143 








TW 0= CL A CLL CML 


rtl 


0144 










/INSTALLATION 


0145 










/PARAMETERS 


0146 










/LOCNS 20-64 


0147 










/LIST ADDRS 


0150 








»1 


/ INT SERVICE 


0151 


0001 


306 6 




DC A ASAVE 




0152 


0002 


7010 




RAR 




0153 


0003 


3067 




DC A LSAVE 




0154 


0004 


5465 




JMP I INTERX 




0155 


0005 


0000 




0 




0156 


0006 


0000 




0 




0157 


0007 


0000 


L X CORO » 


0 




0160 


0010 


0000 


8UF A * 


0 




0161 


0011 


0000 


getpnt. 


0 




0162 


0012 


0000 


PUTPNT # 


0 




0163 


0013 


0000 


JPNT, 


0 




0164 








axpntr=jpnt 




0165 








TMPNTR=17 




0166 








«30 




0167 










/LINKS N CONSTS 


0170 










/FOR MTP SR 


0171 


0030 


7777 


WS W I T 2 > 


7777 




0172 


0031 


7722 


WDUN 2 , 


WR IDUN 




0173 


0032 


7624 


WR I 2 > 


WRITE 




0174 


0033 


7662 


INDAT2 , 


INDATA 






0175 


0034 


7331 


TMESS2 # 


TMESS 


0176 


0035 


7342 


TYPE? * 


TYPES 


0177 


0036 


0007 


K27, 


7 


0200 








#56 


0201 


0056 


6605 


2CYCLE, 


CYCLE 


0202 








#10 4 


0203 


0104 


7600 


KM200Z t 


-200 


0204 


0105 


6275 


S T W 2 * 


addun 


0205 


0106 


7431 


2L ADR ? 


SGADS-2 


0206 


0107 


0377 


K2 37 7 P 


377 


0207 


0110 


0260 


K2260, 


260 


0210 


0111 


7775 


M32i 


- 3 


0211 






LMODE 




0212 






#41 




0213 

0214 

0215 


0041 


6200 


PMODE 


JMP 200 


0216 






#50 




0217 


0050 


0000 


PLTDLY , 


0 


0220 


0051 


0000 


CLKCNT $ 


0 


0221 


0052 


0000 


KCHCNT * 


0 


0222 


0053 


0000 


CHCNT* 


0 


0223 


0054 


7773 


KM 00 5 # 


-0 00 5 


0224 


0055 


0100 


K0100, 


0100 


0225 






#60 




0226 


0060 


0000 


KBL A i 


0 


0227 


0061 


0215 


K0 21 5 a 


0215 


0230 


0062 


0322 


K0322 a 


0322 


0231 


0063 


0062 


K0062 f 


0062 


0232 


0064 


4060 


KM 37 20 # 


-3720 


0233 


0065 


0000 


INTERX, 


0 


0234 


0066 


0000 


ASAVEa 


0 


0235 

0236 

0237 


0067 


0000 


LSAVEa 


0 


0240 

0241 


0070 


7114 


JGETa 


JGETS 


0242 


0071 


7147 


BLKCNTa 


8LKCNS 


0243 

0244 


0072 


7200 


SETPNTa 


setpns 


0245 


0073 


7170 


IXPNTa 


IXPNTS 


0246 

0247 


0074 


7000 


SDIS, 


SDISS 


0250 


0075 


7066 


DISP* 


DISPS 


0251 


0076 


0000 


LOIS* 


0 


0252 


0077 


6141 




LINC 


0253 








LMODE 


0254 


0100 


0147 




DIS LXCORD 


0255 


0101 


0002 




POP 


0256 








PMODE 


0257 


0102 


7200 




cla 


0260 


0103 


5476 




JMP I LDIS 


0261 








#112 


0262 


0112 


0004 


K0 004 * 


0004 


0263 


0113 


0003 


K0 00 3 # 


0003 


0264 


0114 


0002 


K 0 0 0 2 # 


0002 


0265 


0115 


7777 


KM 00 01 # 


-001 


0266 


0116 


0007 


K0007 i 


0007 


0267 


0117 


7751 


KM0027 t 


-0027 


0270 


0120 


0377 


K0377 t 


0377 


0271 

0272 


0121 


7774 


KM 0 0 04 , 


-0004 


0273 


0122 


0000 


TTYLST i 


0 



/LINC INTERRUPT 
/SERV AT 200 



/CONSTANTS 



/LINKS TO SECN 
/3 SUBROUTINES 
/GET NEXT JOB 
/FROM JOB LIST 
/MOVE THRU OATA 
/BLOCK 

/SET AOC PNTRS 
/MOVE THRU 
/ADC BUFFERS 
/SET UP DISPLAY 
/DISPLAY A PNT 

/LINC MODE DIS 
/ROUT 

/B7 IS H.C. 



/PAGE 0 CONSTS 
/USED BY 
/RESIDENT 
/SUB RTS 
/DONT RELOCATE 



/TTY-LIST 
/-END OF LIST 




0274 

0275 


0123 


0042 


PROMRK 


0276 


0124 


0044 


K 4 4 » 


0277 

0300 


0125 


0047 


TXMRK i 


0301 


0126 


0045 


KCR , 


0302 

0303 


0127 


7735 


KM0043 


0304 


0130 


0040 


K0040 , 


0305 

0306 

0307 


0131 


7731 


MTXMRK 


0310 


0132 


7536 


BRAN, 


0311 

0312 


0133 


7272 


SHFT, 


0313 

0314 


0134 


7557 


DADD , 


0315 


0135 


0000 


KLUG, 


0316 


0136 


1011 




0317 


0137 


3012 




0320 

0321 

0322 

0323 


0140 


5535 




0324 


0200 


0060 




0325 


0201 


0207 




0326 


0202 


4221 




0327 


0203 


0321 




0330 


0204 


4227 




0331 

0332 


0205 


0002 




0333 

0334 


0206 


5001 




0335 


0207 


6002 


liretn 


0336 


0210 


7200 




0337 


0211 


1040 




0340 

0341 


0212 


6141 




0342 


0213 


1620 




0343 


0214 


6000 




0344 


0215 


4226 




0345 


0216 


2227 




0346 


0217 


0261 




0347 


0220 


1020 




0350 


0221 


0000 


LASAVE 


0351 


0222 


0500 




0352 


0223 


6244 




0353 


0224 


0500 




0354 


0225 


6001 




0355 

0356 


0226 


0000 


L JUMP , 


0357 

0360 

0361 


0227 


0000 


LLSAVE 


0362 


0400 


7300 




0363 


0401 


5602 




0364 


0402 


6511 





0365 

0366 

0367 

0370 

0371 

0372 



42 


/"-PROG OUTPUT 


44 


/marker 

/-display RESET 


47 


/ -KEYBRD INPUT 


45 


/marker 

/CR-CARIG RTN 


-4 3 


/lf-line FEED 


# OCSORT 
40 


/SPACE: K0040 


-47 


/: MTXMRK 


BRANS 


/LINKAGES TO 
/BASIC SUB RT 
/TABLE BRANCH 


SHFTS 


/OBL PRECISION 


DAODS 


/ARITH SHIFT 
/DBL PREC ADD 


0 

TAD GETPNT 
DC A PUTPNT 
JMP I KLUG 

#200 


/TEMP STORAGE 

/REGS 146-177 
/LINC INTERUPT 


LMODE 


/SERVICE ROUT 


SET I 0 


/RTN TO LIRETN 


liretn 


/WHEN FINISHED 


STC LASAVE 
ROR I 1 
STC LLSAVE 
PD P 
PM OD E 
JMP 1 


/GO SERVICE 


I OF 
CLA 

TAD 40 


/I NTERRUPT 
/GET RTN ADDR 


LINC 
LMODE 
BSE I 


/MAKE A JUMP 


6000 

STC LJUMP 
ADD LLSAVE 
ROL I 1 
LD A I 
0 

I OB 
6244 


/RMF 


I OB 
6001 


/ION 


0 


/JUMP BACK TO 


0 

PMODE 

#400 


/MAIN PROGRAM 
/LOAD AND 


CLA CLL 


/GO START 


JMP I .+1 
START 
#6200 


/ON-LINE FAST 
/AVERAGE 
/RTS TO TYPE 
/DECIMAL WITH 
/formatting 




f 

0373 


6200 


0000 


DECT YP * 


0 


/TYPE SIGNED 


0374 










/DECIMAL IN 


0375 










/ARI TH2 


0376 


6201 


1171 




TAD ARITH2 


/GET SIGN 


0377 


6202 


7710 




SPA CLA 




0400 


6203 


1262 




TAD K0015 


/TYPE - FOR NEG 


0401 


6204 


1264 




TAD K0240 


/SPACE FOR PLUS 


0402 


6205 


4674 




JMS I TYPEX 




0403 


6206 


1171 




TAD ARITH2 




0404 


6207 


7510 




SPA 




* 0405 


6210 


7041 




CMA I A C 




0406 


6211 


3167 




DC A ARITH0 


/ABS OF NUM 


0407 


6212 


1257 




TAD KMD1K 


/GET THOUSANDS 


0410 


6213 


4230 




JMS GDIGIT 


/DIGIT 


0411 


6214 


1260 




TAD KMD100 


/GET HUNDREDS 


0412 


6215 


4230 




JMS GDIGIT 


/DIGIT 


0413 


6216 


1261 




TAD KMD010 


/GET TENS DIGIT 


0414 


6217 


4230 




JMS GDIGIT 




0415 


6220 


7240 




CLA CMA 


/GET UNIT DIGIT 


0416 


6221 


4230 




JMS GDIGIT 




0417 


6222 


1264 




TAD K0240 


/TYPE SPACE 


0420 


6223 


4674 




JMS I TYPEX 




0421 


6224 


2273 




ISZ CRCNT 


/CHECK ITEM 


0422 










/COUNT FOR LINE 


0423 


6225 


5600 




JMP I DECT YP 


/NOT 10 YET X I T 


0424 


6226 


4247 




JMS CRLFS 


/10 ITEMS NEW 


0425 










/LINE 


0426 


6227 


5600 




JMP I DECT YP 




0427 


6230 


0000 


GDIGIT, 


0 


/RADIX DEFLATE 


f" 0430 










/AND TYPE DIGIT 


V...-' 04 31 


6231 


3172 




DC A ARITH3 


/RADIX TO 


0432 










/deflate by 


0433 


6232 


3146 




DC A NDIGIT 




0434 








NDIGIT = TEMP01 




0435 


6233 


1167 




TAD ARITH0 


/NUM TO DEFLAT 


0436 


6234 


3167 


GLOOP > 


DC A ARITH0 


/UPDATE DEFLATED 


0437 










/NUMBER 


0440 


6235 


1167 




TAD ARITH0 


/trial 


0441 


6236 


1172 




TAD ARITH3 


/SUBTRACTION 


0442 


6237 


2146 




ISZ NDIGIT 




0443 


6240 


7500 




SMA 


/DO MORE? 


0444 


6241 


5234 




JMP GLOOP 


/YES. CONTINUE 


0445 










/DEFLATION 


0446 


6242 


7200 




CLA 


/NO 


0447 


6243 


1263 




TAD K0257 


/NDIGIT IS 


0450 










/DIGIT+1 


0451 


6244 


1146 




TAD NDIGIT 


/TYPE DIGIT 


0452 


6245 


4674 




JMS I TYPEX 




0453 


6246 


5630 




JMP I GDIGIT 




0454 


6247 


0000 


CRLFS, 


0 




0455 


6250 


1061 




TAD K0215 


/TYPE CR 


0456 


6251 


4674 




JMS I TYPEX 




0457 


6252 


1266 




TAD K212 


/TYPE LF 


0460 


6253 


4674 




JMS I TYPEX 




0461 


6254 


1261 




TAD KMD010 


/SET COUNT 


0462 


6255 


3273 




DC A CRCNT 


/-10 ITEMS 


0463 


6256 


5647 




JMP I CRLFS 




0464 










/LOCAL CONSTS 


0465 


6257 


6030 


KMD1K , 


-1750 




0466 


6260 


7634 


KMD 1 00 * 


-0144 




f 0467 


6261 


7766 


KMD010, 


-0012 




0470 


6262 


0015 


K0015, 


0015 




0471 


6263 


0257 


K0 25 7 # 


0257 






0472 

0473 

0474 


6264 


0240 


K0240 , 


0240 


0475 


6265 


0215 


txmess. 


215 


0476 


6266 


0212 


K212, 


212 


0477 


6267 


0000 


TMCH, 


0 


0500 


6270 


0272 




272 


0501 


6271 


0240 




240 


0502 


6272 


0000 




0 


0503 


6273 


7766 


CRCNT » 


-12 


0504 


6274 


7342 


TYPEX, 


TYPES 


0505 

0506 


6275 


1162 


ADDUN, 


TAD ASWIT 


0507 


6276 


7640 




S3 A CLA 


0510 

0511 


6277 


5377 




JMP ADONE 


0512 

0513 


6300 


1023 




TAD ADJLIS 


0514 


6301 


3013 




DC A JPNT 


0515 

0516 


6302 


6201 


CALJOB. 


CDF 0 


0517 


6303 


4470 




JMS I jget 


0520 

0521 

0522 


6304 


5365 




JMP CALEND 


0523 


6305 


2013 




ISZ JPNT 


0524 


6306 


2013 




ISZ JPNT 


0525 


6307 


3324 




DC A CALXM 


0526 

0527 


6310 


4472 




JMS I SE TP NT 


05 30 


6311 


1011 




TAD GE TP NT 


0531 

0532 


6312 


3012 




DC A PU TP NT 


0533 


6313 


1324 




TAD CALXM 


0534 


6314 


3315 




DC A , + l 


0535 


6315 


6201 




CDF 


0536 


6316 


1411 




TAD I GE TP NT 


0537 

0540 


6317 


3154 




DC A NSAVE 
NSAVE=TEMP07 


0541 

0542 


6320 


2412 




ISZ I PU TP NT 


0543 

0544 


6321 


6201 


CALNXT , 


CDF 0 


0545 


6322 


1553 




TAD I TBUFAD 


0546 

0547 


6323 


3150 




DC A T ADC 
T ADC = TEMP03 


0550 


6324 


6201 


calxm. 


CDF 


0551 


6325 


7100 




CLL 


0552 

0553 


6 32 b 


1150 




TAD T ADC 


0554 

0555 


6327 


4762 




JMS I LADZ 


0556 


6330 


7240 




CLA CMA 


0557 


6331 


1152 




tad tjtype 


0560 


6332 


7650 




SNA CLA 


0561 

0562 


6333 


5355 




JMP CALMOR 


0563 


6334 


1150 




TAD T ADC 


0564 

0565 

0566 


6335 


4763 




JMS I SQADZ 


0567 


6336 


7344 




mtw 


0570 


6337 


1152 




TAD TJTYPE 



/text of ctrl/a 

/MESSAGES 
/ < CR ) 

/ < L F ) 

/» 

/ : 

/SPACE 
/END TEXT 
/LOCAL VAR 
/LOCAL 

/AVGING SW I T=0 
/IF OK TO AVG 

/.NE. 0! DONT 
/UPDATE CALCS 
/START CALCS AT 
/TOP OF LIST 

/FIELD 0 HOLDS 
/JOB LIST 
/GET JOB PARAMS 
/EOL DETECTEO 
/END OF THIS 
/SWEEP 
/MOVE OVER 
/ J 6 AND J7 
/AC HELD CDF N 
/SET UP ADC 
/PNTRS N CNTRS 
/SET UP TO 
/UPDATE JOBS 
/DATA REGION 
/UPDATE JOBS 
/SWEEP CNTR 
/SET COF 
/GET NUM OF 
/SWEEPS 

/SAVE INCR. 

/NUM OF SWEEPS 
/ADC BUFFER IS 
/IN FIELD 0 
/GET SAMPLE 
/FROM ADC BUFER 

/JOBS CDF 

/ADC BUFFER 
/VALUE FOR PNT 
/LIST DBL 
/PRECISION ADD 

/S.D.7 

/NO TYPE 1 
/ 75/PNT 

/ADC BUFER VAL 
/SQUARE N LIST 
/TRIPLE 

/PRECISION ADD 



/TREND? 




0 5 71 


6 340 


7650 




SNA CLA 




0572 


6341 


5355 




JMP calmor 


/NO TYPE 2 


0573 










/400/PNT 


0574 


6342 


1411 




TAD I GETPNT 


/LAST SWEEPS 


0575 


6343 


3146 




DC A TSAVE 


/ADC BUFFER VAL 


0576 








TSAVE=TEMP01 


/FOR THIS PNT 


0577 


6344 


1150 




TAD T ADC 


/SAVE THIS 


0600 










/SWEEPS ADC 


0601 










/BUFFER VALUE 


0602 


6345 


3412 




DCA I PUTPNT 


/FOR THIS PNT 


0603 


6346 


1154 




TAD NSAVE 


/NUM OF SWEEPS 


0604 


6347 


7650 




SNA CLA 


/0? 


0605 


6350 


5354 




JMP .+4 


/YES 


0606 










/X(1)-X(0)=0 


0607 


6351 


1146 




TAD TSAVE 


/this sweep- 


0610 


6352 


7041 




CM A I A C 


/LAST SWEEP 


0611 


6353 


1150 




TAD tadc 


/SQUARE N LIST 


0612 










/TRIPLE ADD 


0613 


6354 


4763 




JMS I SQ ADZ 


/TYPE 3 : 750/PNT 


0614 


6355 


4471 


CALMQR , 


JMS I BLKCNT 


/MORE DATA 


0615 










/IN JOB? 


0616 


6356 


3324 




DCA CALXM 


/FIELD CHANGE 


0617 










/CDF INST IN AC 


0620 


6357 


4473 




JMS I IXPNT 


/NOT COMPLETE 


0621 










/UPDATE ADC 


0622 










/POINTER 


0623 


6360 


5302 




JMP CALJOB 


/JOB COMPLETE 


0624 










/GET NEXT JOB 


0*625 


6361 


5321 




JMP CALNXT 


/NOT COMPLETE 


0626 










/GET NEXT POINT 


0627 


6362 


7412 


LADZ , 


LADDS 




0630 


6363 


7433 


SQAD2, 


SQ ADS 




0631 


6364 


02 76 


K0276 , 


0276 




0632 


6365 


1030 


calend. 


TAD WSWITZ 




0633 


6366 


7650 




SNA CLA 




0634 


6367 


5431 




JMP I WDUNZ 




0635 


6370 


2165 




ISZ NSWPS 


/SWEEPS DONE? 


0636 


6371 


5377 




JMP ADONE 


/NO 


0637 


6372 


3161 




DCA VSW 


/YES SET VIEW 


0640 










/SWITCH TO 


0641 










/AVERAGES 


0642 


6373 


3164 




DCA XMASK 


/DO NOT SAMPLE 


0643 


6374 


1364 




TAD K 02 7 6 


/TYPE ">" 


0644 


6375 


3175 




DCA KBDBUF 




0645 


6376 


7410 




SKP 




0646 


6377 


7000 


ADONE, 


NOP 




0647 


6400 


5456 




JMP I ZCYCLE 


/START AT TOP 


0650 










/OF DISP CYCLE 


0651 






/SUBROUT INE TO SENSE 


AND BRANCH ON PSEUDO KEYBOARD: I KBR AN 


0652 






/ 


EXIT 1 


/NORMAL RETURN 


0653 






/ 


EXIT 2 


/<LF> 


0654 






/ 


EXIT 3 


/<CR> 


0655 












0656 


6401 


0000 


IKBRAS, 


0 


/PROTECT AGNST 


0657 










/BAD CNTRL TAPE 


0660 


6402 


1175 




TAD KBDBUF 


/EXAMINE 


0661 










/INTERRUPT KBD 


0662 


6403 


7450 




SNA 


/KEY STRUCK? 


0663 


6404 


5601 




JMP I IKBRAS 


/NO NEW KEY 


0664 


6405 


4532 




JMS I BRAN 


/YES WHICH ONE ? 


0665 


6406 


7572 




IKIIST 




0 6 66 


6407 


5331 




JMP CTRL 2 


/Z ZERO AND 


0667 










/RESTART 




0670 


6410 


0671 


6411 


0672 


6412 


0673 


6413 


0674 




0675 


6414 


0676 




0677 


6415 


0700 




0701 


6416 


0702 




0703 


6417 


0704 




0705 


6420 


0706 


6421 


0707 


6422 


0710 


6423 


0711 


6424 


0712 


6425 


0713 


6426 


0714 




0715 


6427 


0716 


6430 


0717 


6431 


0720 




0721 


6432 


0722 


6433 


0723 


6434 


0724 


6435 


0725 




0726 


64 36 


07 27 




0730 


6437 


0731 




0732 




0733 


6440 


0734 


6441 


0735 




0736 


6442 


0737 


6443 


0740 




0741 


6444 


0742 


6445 


0743 


6446 


0744 


6447 


0745 




0746 


6450 


0747 




0750 


6451 


0751 


6452 


0752 


6453 


0753 


6454 


0754 


6455 


0755 


6456 


0756 


6457 


0757 


6460 


0760 




0761 




0762 


6461 


0763 




0764 


6462 


0765 




0766 


6463 



5376 

5321 

5306 

2201 

5241 

5231 

7344 

5235 

5303 

5432 

5254 

5245 

1175 I KCONT , 

6046 

3177 

3175 

5601 IKEXITt 
1161 I K V , 

7040 

3161 

5224 

7140 IKXC, 
1166 
3166 



5224 

1370 IKCRLF, 

3176 

2201 

5224 

1164 IKP, 

7640 

5227 

1163 

7040 

3163 

5224 

1163 IKT, 

1164 
7640 
5227 
3155 



3156 

3157 
1175 



JMP 


CT RLR 


JMP 


CTRLA 


JMP 


CTRLQ 


ISZ 


IKBRAS 


JMP 


IKCRLF 


JMP 


I K V 


MTW 




JMP 


IKXC 


JMP 


CTRLD 


JMP 


I WR 1 Z 


JMP 


IKT 


JMP 


IKP 


TAD 


KBDBUF 


tls 




DC A 


TTYFLG 


DC A 


KBDBUF 


JMP 


I IKBRAS 


TAD 


VSW 


CM A 




DC A 


VSW 


JMP 


IKCONT 


CLL 


CM A 


TAD 


NSHFT 


DC A 


NSHFT 



JMP 


IKCONT 


TAD 


K0212 


DC A 


TTYBUF 


ISZ 


IKBRAS 


JMP 


IKCONT 


TAD 


XMASK 


SZA 


CLA 


JMP 


IKEXIT-1 


TAD 


PSWIT 


CM A 


DC A 


PSWIT 


JMP 


IKCONT 


TAD 


PSWIT 


TAD 


XMASK 


SZA 


CLA 


JMP 


IKEXIT-1 


DC A 


TN JOB 


TNJOB=TEMP10 


DC A 


TNMIN 


T NM I N = T EMP1 1 


DC A 


TNMAX 


TNMAX=TEMP12 


TAD 


KBDBUF 



/R - RESTART 
/A ALTER PARAMS 
/Q TERM AVGING 
/C . R . EXIT TO 
/CALL+3 

/L.F. ECHO AND 
/EXIT TO CALL + 2 
/V COMPLEMENT 
/VIEW SWITCH 
/C CONTRACT 
/VIEW SCALE 
/X EXPAND 
/VIEW SCALE 
/D GET MONITOR 
/WRITE M TP 
/T TYPE DATA 
/P PLOT MODE 
/OTHERS ECHO 
/TYPE 

/SET FLAG CHAR 
/IN PROGRESS 
/CLR KBD BUFER 
/RTN 

/V COMP. VIEW 
/SWI TCH 



/ECHO AND EXIT 
/-2 GOES TO 1 
/0 GOES TO -1 
/C : INC. NSHFT 
/X : DECR. NSHFT 
/NSHFT IS NUM 
/OF PLACES TO 
/SHIFT RIGHT 
/ECHO AND EXIT 
/CR OR LF 
/TYPE LF LATER 

/X I T TO CALL +2 
/OR C ALL + 3 
/ECHO AND EXIT 
/IS AVGING DONE? 

/NO DONT EVEN 
/ECHO "P" 

/YES, COMP 
/PLOT SWITCH 



/ECHO AND EXIT 
/PLOTTING DONE? 
/AVERAGE DONE? 

/NO DONT ECHO 
/PRESET TO 
/DUMP MODE 



/ M <CRLF>T: " 




0767 


6464 


4762 




JMS 


I RDK8DX 


/GET AVERAGE 


0770 












/TO BE OUTPUT 


0771 


6465 


7450 




SNA 




/0 TO TYPE ALL 


0772 


6466 


5276 




JMP 


IKTGO 


/IN DUMP MODE 


0773 












/type all data 


0774 


6467 


3155 




DC A 


TN JOB 


/-JOB 


0775 


6470 


1371 




TAD 


K0314 


/" <CRLF>L : " 


0776 


6471 


4762 




JMS 


I RDKBDX 


/GET LOWER 


0777 

1000 


6472 


3156 




DCA 


TNMIN 


/LIMIT (BIN ) 


1001 


6473 


1372 




TAD 


K0310 


/"<CRLF>h: " 


1002 


6474 


4762 




JMS 


I RDKBDX 


/GET UPPER 


1003 

1004 


6475 


3157 




DCA 


TNMAX 


/LIMIT (BIN ) 


1005 


64 76 


7240 


IKTGO* 


CLA 


CM A 




1006 


6477 


3160 




DCA 


TSWIT 




1007 


6500 


1061 




TAD 


K0215 




1010 


6501 


3175 




DCA 


KBOBUF 




1011 


6502 


5601 




JMP 


I IKBRAS 




1012 


6503 


6002 


CTRLD, 


I OF 






1013 


6504 


5705 




JMP 


I .+1 




1014 


6505 


7607 




MONI TR 




1015 


6506 


7240 


CTRLQ, 


CLA 


CM A 


/DO 1 MORE SWEEP 


1016 


6507 


3165 




DCA 


NSWPS 


/AND THEN QUIT 


1017 


6510 


5227 




JMP 


IKEXIT-1 




1020 


6511 


7040 


START, 


CM A 






1021 


6512 


3030 




OCA 


WSWI 11 




1022 


6513 


1373 




TAD 


K201 


/AVGER STARTS 


1023 

1024 


6514 


3175 




DCA 


KBDBUF 


/HERE 


1025 


6515 


1055 




TAD 


K0100 


/GET LINC SPEC 


1026 


6516 


6141 




LINC 


/FCNS CONST 


1027 








LMODE 




1030 


0517 


0004 




ESF 




/ENAB FAST SAM 


1031 


0520 


0002 




P DP 






1032 








PMODE 




1033 

1034 


6521 


5765 


CTRLA, 


JMP 


I TCALX 


/SET UP CLOCK 


1035 


6522 


1367 




TAD 


K0316 


/"/CRLF/N: " 


1036 


6523 


4762 




JMS 


I RDKBDX 


/-NUM OF SWEEPS 


1037 


6524 


3026 




DCA 


NSWEP 




1040 


6525 


1366 




TAD 


K0304 


/"/CRLF/D: " 


1041 


6526 


4762 




JMS 


I RDKBDX 


/-DELAY (IN 


1042 

1043 


6527 


1115 




TAD 


KM0001 


/SAMPLING INT) 


1044 


6530 


3030 




DCA 


KSYTIM+1 




1045 


6531 


1370 


CTRL? , 


TAD 


K0212 


/LFCRLF 


1046 


6532 


4764 




JMS 


I tmessx 




1047 


6533 


1023 




TAD 


AD JL IS 


/START AT 1ST 


1050 


6534 


3013 




DCA 


JPNT 


/JOB 


1051 


6535 


6201 


2NXT, 


CDF 


0 




1052 


6536 


4470 




JMS 


I JGET 


/GET JOB PARAMS 


1053 


6537 


5374 




JMP 


ADINIT 


/NO MORE JOBS 


1054 












/ I N I T SWEEP 


1055 












/CNTRL TO 


1056 












/ACCEPT DATA 


1057 


6540 


2013 




IS? 


JPNT 


/SKIP OVER DISP 


1060 


6541 


2013 




ISZ 


JPNT 


/IN J6 N J7 


1061 


6542 


3350 




DCA 


2 X M 


/CDF INST IN AC 


1062 


6543 


4763 




JMS 


I JCELLX 


/GET NUM OF 


1063 












/CELLS -2 FOR 


1064 












/JOBS DATA POINT 


1065 


6544 


1114 




TAD 


K0002 


/NUM OF CELLS 




/PER DATA POINT 
/IS N 



1066 

1067 



1070 


6545 


7041 




CM A I A C 




1071 


6546 


3147 




DC A T2CELL 




1072 








TZCELL = TEMP02 




1073 


6547 


7240 




CLA CM A 


/FIRST ITEM HAS 


10 7 4 










/SWEEP CNT (NOT 


1075 










/CNTED IN LENTH) 


1076 


6550 


6201 


ZXM, 


CDF 




1077 


6551 


1147 




TAD TZCELL 


/FOR EACH PNT 0 


1100 


6552 


3146 




DCA TZCNT 


/N CELLS 


1101 








TZCNT = TEMP01 




1102 


6553 


3411 




DCA I GETPNT 


/GETPNT INIT 


1103 










/BY JGETS 


1104 


6554 


2146 




ISZ TZCNT 




1105 


6555 


5353 




JMP .-2 




1106 


6556 


4471 




J MS I BLKCNT 


/NEXT POINT? 


1107 


6557 


3350 




DCA 2XM 


/YES BUT CHANGE 


1110 










/CDF 


1111 


6560 


5350 




JMP ZXM 


/CONTINUE 


1112 


6561 


5335 




JMP I NXT 


/END OF JOB 


1113 










/GET NEXT JOB 


1114 


6562 


7211 


RDKBDX, 


RDKBDS 


/LOCAL 


1115 


6563 


6761 


JCELLX, 


JCELLS 


/CROSSPAGE 


1116 


6564 


7331 


THE S SX i 


TMESS 




1117 


6565 


7245 


TCALX, 


TCALS 




1120 










/ASCII CHARS 


1121 


6566 


0304 


K0304, 


304 


/D 


1122 


6567 


0316 


K0316, 


316 


/N 


1123 


6570 


0212 


K0212, 


212 


/LF 


1124 


6571 


0314 


K0 31 4 * 


314 


/L 


1125 


6572 


0310 


K0 31 0 1 


310 


/H 


1126 


6573 


0201 


K201 , 


201 




1127 










/INIT PNTRS 


1130 










/COUNTERS 


1131 










/and BUFFERS 


1132 


6574 


1113 


ADINIT, 


TAD K0003 


/SET SCALE 


1133 










/TO 1/8 


1134 


6575 


3166 




DCA NSHFT 




1135 








NSHF T = TEMP2 1 




1136 


6576 


1370 


CTRLR, 


TAD K0212 


/PUT LFEED IN 


1137 


6577 


3175 




DCA KBDBUF 


/KBD BUFF 


1140 


6600 


1026 




tad nswep 


/SET AUTO STOP 


1141 


6601 


3165 




DCA NS WPS 


/COUNTER 


1142 








NS WP S = TE MP 20 




1143 


6602 


1025 




TAD smask 


/SET AVGING 


1144 


6603 


3164 




DCA XMASK 


/SWITCH 


1145 








XMASK=TEMP17 




1146 


6604 


3163 




DCA PSWIT 


/NO plottting 


1147 








PSWIT=TEMP16 


/PERMITTED 


1150 


6605 


6133 


CYCLE * 


CLAB 




1151 


6606 


6132 




CLLR 




1152 


6607 


1055 




TAD K0100 




1153 


6610 


6132 




CLLR 




1154 


6611 


6135 




CL S A 




1155 


6612 


6141 




LINC 




1156 


6613 


0110 




110 


/SAM 10 


1157 


6614 


0002 




2 


/POP 


1160 


6615 


7200 




CLA 




1161 


6616 


1051 




TAD CLKCNT 




1162 


6617 


7041 




CM A I AC 




1163 


6620 


6133 




CLAB 




1164 


6621 


7200 




CLA 






116 5 


6622 


1043 


1166 


6623 


6134 


1167 


6624 


7200 


1170 


6625 


1355 


1171 

1172 


6626 


3065 


1173 

1174 


6627 


4760 


1175 

1176 


66 3 0 


5236 


1177 


6631 


7240 


1200 

1201 

1202 

1203 


6632 


3162 


1204 

1205 

1206 


6 6 33 


1162 


1207 

1210 

1211 


6634 


3161 


1212 

1213 

1214 

1215 


6635 


3160 


1216 

1217 


6636 


6001 


1220 


6637 


1161 


1221 

1222 


6640 


7640 


1223 


66 41 


5340 


1224 


6642 


1023 


1225 


6643 


3013 


1226 

1227 


6644 


6201 


1230 


6645 


4470 


1231 


6646 


5227 


1232 

1233 


6647 


3277 


1234 


6650 


4474 


1235 

1236 


6651 


7000 


1237 


6652 


4361 


1240 

1241 


6653 


3151 


1242 

1243 

1244 


6 6 5 4 


1277 


1245 


6655 


3256 


1246 


6656 


6201 


1247 


6657 


1411 


1250 


6660 


3171 


1251 


6661 


1160 


1252 


6662 


7650 


1253 


6663 


5277 


1254 


6664 


1155 


1255 


6665 


7650 


1256 


6666 


5271 


1257 

1260 


6667 


2155 


1261 

1262 

1263 


6670 


5277 



TAD CLKMOD 

CLEN 

CLA 

TAD ADRCLK 



DC A INTERX 



KBDCHK . JMS 


I IK8RAX 


JMP 


RSTART 


CLA 


CMA 







DC A 


ASWIT 






AS W I 


T=TEMP15 






TAD 


ASWIT 






DC A 


VSW 






VSW = 


TEMP14 






DC A 


TSW I T 






TSUI 


T = T E MP 13 


RSTA 


RT, 


ION 




DISW 


IT* 


TAD 


VSW 






S2 A 


CLA 






JMP 


VI NPUT 






TAD 


ADJLIS 






DC A 


JP NT 


VJST 


AR # 


CDF 


0 






JMS 


I JGET 






JMP 


KBDCHK 






DC A 


VJXM 






JMS 


I SDIS 






NOP 








JMS 


JCELLS 






DCA 


TDSKIP 






TDSK 


: I P = TEMP04 






TAD 


VJXM 






DCA 


VJXMN 


VJXM 


N, 


CDF 








TAD 


I GETPNT 






DCA 


ARITH2 






TAD 


TSWIT 






SNA 


CLA 






JMP 


VJXM 






TAD 


tnjob 






SNA 


CLA 






JMP 


. +3 






ISZ 


TNJOB 






JMP 


VJXM 



/GET KW1 2 MODE 



/SETUP INTERUPT 
/SERVICE 
/INTERRUPT GOES 
/TO SWEEP ADC 
/LOOK AT 
/interrupt KBRD 

/NO CHAR GO DISP 
/L.F. COMES HERE 
/FOR 1ST SWEEP 
/SET MODE TO 
/PAUSE 

/C.R. SET MODE 
/TO "COMPUTE" 

/ASW IT=-1 FOR 
/PAUSE ASW I T=0 
/FOR COMPUTE 
/INPUT FOR PAUSE 
/AVERAGES FOR 
/COMPUTE 

/SET TO NO TYPE 

/ I N I T 

/VIEW INPUT OR 
/PARTIAL SUMS? 

/VIEW INPUT 
/VEIW PART SUMS 
/START WITH 
/1ST JOB 

/VIEW PART SUMS 
/NO MORE JOBS 
/LOOK AT KBRD 
/CDF INST 
/SETUP DISP 
/PARAMETERS 
/SKIPPED (KLUG) 
/GET NUM OF LOC 
/PER POINT-2 
/DONT DISP S.D. 
/OR TREND 

/SET UP FIELD 
/TO GET N 

/NUM OF SWEEPS 

/ CHK TYP SWITCH 
/.NE. 0 TO TYPE 
/DONT TYPE 
/DUMP MODE? 

/YES START 
/TYPING 

/NO IS THIS THE 
/JOB TO BE 

/typed? 

/NO DISP THIS 1 




1264 


6671 


4 756 


1265 






1266 


6672 


4757 


1267 


66 73 


1166 


1270 


6674 


3171 


1271 






1272 


6675 


4757 


1273 






1274 


6676 


4756 


1275 






1276 


6677 


6201 


1277 


6700 


1411 


1300 






1301 






1302 


6701 


3171 


1303 


6702 


1411 


1304 


6703 


3170 


1305 


6704 


7344 


1306 






1307 


6705 


1166 


1310 


6706 


7041 


1311 


6707 


4533 


1312 


6710 


1160 


1313 


6711 


7650 


1314 


6712 


5327 


1315 


6713 


1155 


1316 


6714 


7640 


1317 


6715 


5327 


1320 


6716 


1156 


1321 


6717 


7 6 50 


1322 


67 20 


5323 


1323 


6721 


2156 


1324 


6722 


7410 


1325 


6723 


4757 


1326 







JMS I CRLFX 

JMS I DECTYX 
TAD NSHFT 
DC A ARITH2 

JMS I DECTYX 

JMS I CRLFX 

VJXM, CDF 

TAD I GETPNT 



DC A ARITH2 
TAD I GETPNT 
OCA ARITH1 
MTW 

TAD NSHFT 
CM A I A C 
JMS I SHFT 
TAD TSWIT 
SNA CLA 
JMP VJDIS 
TAD TN JOB 
SEA CLA 
JMP VJDIS 
TAO TNMIN 
SNA CLA 
JMP . + 3 
ISE TNMIN 
SKP 

JMS I DECTYX 



1327 

1330 

1331 


6724 

6725 


2157 

7410 




IS2 

SKP 


TNMAX 


1332 

1333 


6726 


2155 




ISE 


TN JOB 


1334 

1335 

1336 


6727 


7326 


VJDIS* 


TWO 




1337 

1340 


6730 


4475 




JMS 


I DISP 


1341 

1342 


6731 


1151 




TAD 


TDSK IP 


1343 


6732 


1011 




tad 


GETPNT 


1344 


6733 


3011 




DC A 


GETPNT 


1345 

1346 


6734 


4471 




JMS 


I 8LKCNT 


1347 


6735 


3277 




DC A 


VJXM 


1350 

1351 


6736 


5277 




JMP 


VJXM 


1352 

1353 

1354 


6737 


5244 




JMP 


VJSTAR 


1355 

1356 


6740 


1024 


vinput, 


TAD 


ADCHNL 


1357 


6741 


3013 




DCA 


JPNT 


1360 

1361 


6742 


3150 




DCA 


TORD 



1362 



/TYPE CRLF 
/SET ITEM CNTER 
/TYPE N 
/GET SCALE 
/FACTOR SAV FOR 
/TYP ING 
/TYPE SCALE 
/FACTOR 
/TYPE CRLF 
/SET CR COUNT 
/GET DATA FIELD 
/GET DATA PNT 
/<LO ORDER. 

/HI OROER) 

/AND PUT IN 
/SHIFT REG 
/OUTPUT IN MV 
/DEC SF BY 4 



/CHK TYPE SWIT 

/TYPE NOT ENAB 
/IS THIS JOB 
/TO BE TYPEO? 
/NO JUST DISP 
/REACHED THE 
/FIRST POINT? 

/NO COUNT DOWN 
/JUST DISPLAY 
/YES TYPE 
/DATA POINT 
/REACHED THE 
/LAST POINT? 

/NO CONTINUE 

/yes disable 
/typeout 
/SCALE TWO MORE 
/RIGHT (COUNTS 
/FROM MV) 

/JOB SCALE. BIAS 
/ DISPLAY 
/MOVE PNTR OVER 
/VAR AND TREND 



/CHECK BLOCK 
/LENGTH 

/NEW DATA FIELD 
/FILE NOT YET 
/COMPLETE 
/GET NEXT JOB 
/AND DISPLAY IT 
/VIEW RAW INPUT 
/GET START OF 
/CHANEL DISPLAY 
/LIST 

/LOOK AT 1ST 
/OF LIST 
/(OROER=0) 




1363 


6743 


4472 


V I NEXT < 


■ JMS 


I S'ETPNT 


/SET SWEEP 


1364 












/PARAMS N PNTRS 


1365 


6744 


4 474 




JMS 


I SDIS 


/JPNT POINTS TO 


1366 












/DISP WDS 01. 02 


1367 


6745 


5227 




JMP 


KBDCHK 




1370 


6746 


2150 




IS2 


TORD 


/MOVE CHANNEL 


1371 












/COUNTER 


1372 


6747 


1553 


VILOOP, 


TAD 


I TBUFAD 


/GET DATA POINT 


1373 


6750 


3171 




DC A 


ARI TH2 


/LOAO IN LOW 


1374 












/ORDER SHFT REG 


1375 


6751 


4475 




JMS 


I DISP 


/DISPLAY 


1376 


6752 


4473 




JMS 


I ixpnt 


/DUN THIS CHAN? 


1377 


6753 


5343 




JMP 


VINEXT 


/YES NEXT CHAN 


1400 


6754 


5347 




JMP 


VILOOP 


/NO GET NXT PNT 


1401 












/LOCAL CROSSPAGE 


1402 


6755 


7465 


ADRCLK, 


CLKINT 




1403 


6756 


6247 


CRLFX, 


CRLFS 




1404 


6757 


6200 


DECTYX, 


DECT YP 




1405 


6760 


6401 


IKBRAX, 


IKBRAS 




1406 












/SUBRT TO GET 


1407 












/ ( CELLS-2 ) FROM 


1410 












/JOB TYPE 


1411 


6761 


0000 


JCELLS, 


0 




/CELLS-2 PER 


1412 












/DATA POINT IN 


1413 












/CALC BUFFER 


1414 


6762 


1152 




tad 


TJTYPE 


/l, 2. OR 3 


1415 


6763 


4532 




JMS 


I BRAN 




1416 


6764 


0113 




K0003 




1417 


6765 


1112 




TAD 


K0004 


/TYPE 3 


1420 












n C ELLS +2 


1421 


6766 


1113 




TAD 


K0003 


/TYPE 2 


1422 












/3 CELLS +2 


1423 


6767 


5761 




JMP 


I JCELLS 


/TYPE 1 


1424 












/0 CELLS+2 


1425 








PAGE 




1426 






/THIS SUBROUTINE DECODES DISPLAY WORDS: ‘ 


1427 






/POINTER IS 


AUTOINDEX 


REGISTER "AXPNTR" 


1430 






/CALL : 


SDIS 




1431 






/ 


END 


OF LIST RETURN 


1432 






/ 


NORMAL RETURN 




1433 








AXPNTR= JPNT 




1434 


7000 


0000 


SDISS, 


0 






1435 


7001 


1163 




TAD 


PSWIT 


/PLOT MODE? 


1436 


7002 


7650 




SNA 


CLA 




1437 


7003 


5213 




JMP 


K 003 7 + 1 


/NO. CONTINUE 


1440 


7004 


1173 


221, 


TAD 


ARITH4 




1441 


7005 


3007 




DC A 


LXCORD 




1442 


7006 


1261 




tad 


Y 2 




1443 


7007 


4076 




JMS 


LDIS 




1444 


7010 


4665 




JMS 


I IKBRAY 


/WAIT FOR 


1445 












/CR OR LF 


1446 


7011 


5204 




JMP 


221 




1447 


7012 


0037 


K0037, 


0037 




/NOP 


1450 


7013 


1413 




TAD 


I axpntr 


/GET Dl 


1451 












/DX ( 8 > , YS<4> 


1452 


7014 


7450 




SNA 






1453 


7015 


5600 




JMP 


I SDISS 


/EOL IF Dl =0 


1454 


7016 


3171 




DCA 


ARITH2 




1455 


7017 


1171 




tad 


ARITH2 




1456 


7020 


0255 




AND 


K0017 


/HAVE Y SCALE 


1457 


7021 


3260 




DCA 


YS 


/FACTOR 


1460 


7022 


3170 




DCA 


ARITH1 


/0 TO HI ARITH0 


1461 


7023 


1112 




TAD 


K0004 


/DELTA-X 




1462 


7024 


4533 




JMS I SHF T 


/MOVE BINARY 


1463 










/POINT TO END 


1464 










/OF ARITH2 


1465 


7025 


1170 




TAD ARITH1 




1466 


7026 


3262 




DC A DELTAX 




1467 


7027 


1171 




TAD ARITH2 




1470 


7030 


3263 




DC A DELTAX + 1 




1471 


7031 


1413 




TAD I AXPNTR 


/GET D 2 


1472 


7032 


3171 




DC A ARITH2 


/XZ< 6) ,YZ( 6) 


1473 


7033 


1113 




TAD K0003 


/MOVE YZ TO 9 


1474 


7034 


4533 




JMS I SHFT 


/SIGNIF BITS 


1475 


7035 


1171 




TAD ARITH2 




1476 


7036 


3261 




DC A YZ 




1477 


7037 


1264 




TAD KM0006 


/MOVE XZ TO 9 


1500 


7040 


4533 




JMS I SHFT 


/BITS OF ARITH2 


1501 


7041 


1171 




TAD ARITH2 


/GET RID OF LOW 


1502 


7042 


0264 




AND KM0006 


/ORDER BITS 


1503 


7043 


3173 




DC A ARITH4 


/FOP HOLDS 


1504 










/CURRENT X-VAL 


1505 


7044 


1163 




tad pswit 


/plot MODE? 


1506 


7045 


7650 




SNA CLA 




1507 


7046 


5256 




JMP K0017+1 


/NO. CONTINUE 


1510 


7047 


1173 


11 2, 


TAD ARITH4 




1511 


7050 


3007 




DCA LXCORD 




1512 


7051 


1261 




TAD YZ 




1513 


7052 


4076 




JMS LDIS 




1514 


7053 


4665 




JMS I IKBRAY 


/WAIT FOR 


1515 


7054 


5247 




JMP ZZ2 


/CR OR LF 


1516 


7055 


0017 


K0017 > 


0017 


/NOP 


1517 


7056 


22 00 




ISZ SDISS 


/X I T TO CALL +2 


15 20 


70 57 


56 00 




JMP I SDISS 




1521 










/LOCAL VARS 


1522 


7060 


00 00 


YS , 


0 


/SCALE FACTOR 


1523 










/FOR Y 


1524 


7061 


0000 


Y 1 > 


0 


/SCP Y FOR Y =0 


1525 


7062 


0000 


DELTAX, 


0 


/INCREMENT BET 


1526 










/PNTS (INTEGER 


1527 










/PART) 


1530 


7063 


0000 




0 


/(FRACTNL PART) 


1531 










/LOCAL CONSTANTS 


1532 


7064 


7772 


KM 00 06 , 


-0006 




1533 


7065 


6401 


ikbray. 


ikbras 




1534 






/subroutine to display 


POINT OF DATA 


1535 






/(/-INCREMENTED) :DISP 




1536 






/DATA VALUE SHOULD BE 


IN ARITH1 


1537 






/ARITH0 


+ 2 




1540 


7066 


0000 


DISPS, 


0 


/AC+ ( YS) =PLACES 


1541 


7067 


1260 




TAD YS 


/TO SHIFT RIGHT 


1542 


7070 


7041 




CM A I A C 




1543 


7071 


4533 




JMS I SHFT 


/SCALE 


1544 


7072 


1173 




TAD ARITH4 


/MOVE X TO NEW 


1545 


7073 


3007 




DCA LXCORD 


/VALUE 


1546 


7074 


1261 




TAD YZ 


/BIAS 


1547 


7075 


1171 




TAD ARITH2 




1550 


7076 


4076 




JMS LDIS 


/DO LINC MODE 


1551 










/DISPLAY 


1552 


7077 


7200 


QISPTN , 


CLA 


/RTN FRM PAGE 0 


1553 










/display RT 


1554 


7100 


1163 




TAD PSWIT 


/PLOT MODE? 


1555 


7101 


7650 




SNA CLA 




1556 


7102 


5306 




JMP .+4 


/NO. CONTINUE 


1557 


7103 


3050 




DCA PLTDLY 




1560 


7104 


2050 




ISZ PLTDLY 


/YES. WAIT A 




1561 


7105 


5304 




JMP .-1 


/WHILE 


1562 


7106 


1262 




TAO DELTAX 


/LOAD X I NCR 


1563 


7107 


3170 




DC A ARITH1 




1564 


7110 


1263 




tad deltax+i 


1565 


7111 


3171 




DC A ARITH2 




1566 


7112 


4534 




JMS I DADD 


/ADD TO CURNT X 


1567 


7113 


5666 




JMP I DISPS 




1570 






/THIS 


SUBROUTINE DECODES JOB LIST 


1571 






/AND SETS JOB POINTERS (136) 


1572 






/ 


Ji: A/B ( 1 ) » 


CHAN (5) , 1(1). CHAN ORDER ( 5 ) 


1573 






/ 


J2 : JOB TYPE ( 4 ) , CON T I NGEN CY ( 8 ) 


1574 






/ 


J3 : LINKAGE 


WORD (LI) TO FIRST BLOCK 


1575 






/ 


J4 : LINKAGE 


WORD ( L 2 ) TO FIRST BLOCK 


1576 






/ 


J5 : LINKAGE 


WORD ( L 3 ) TO FIRST BLOCK 


1577 






/ 


J6 : DISPLAY 


WORD D1 


1600 






/ 


J7 : DISPLAY 


WORD D2 


1601 






/PARAMETERS OF job: 




1602 






/ 


TYPE: - TYPE 


IN "TJTYPE" 


1603 






/ 


CONTINGENCY: 


"TCMASK". CHAN ORDER: "TORD" 


1604 






/ 


COUNT FOR 1ST BLK: "TCBLK" 


1605 






/ 


LOCATION OF 


1ST -l: "GETPNT" 


1606 






/ 


CDF INSTRUCTION: AC 


1607 






/ 


AUTOINDEX "JPNT" POINTS TO J5 AT EXIT (J6 IS NEXT) 


1610 


7114 


0000 


JGETS* 


0 




1611 


7115 


1413 




TAD I JPNT 


/GET Jl 


1612 


7116 


7450 




SNA 


/ J 1 = 0 FOR EOL 


1613 


7117 


5 714 




JMP I JGETS 


/J1=0 EXIT 


1614 


7120 


3170 




DC A ARITH1 


/SAVE Jl IN 


1615 










/SHIFT REG 


1616 


7121 


1413 




TAD I JPNT 


/GET J 2 


1617 


7122 


3171 




DC A ARITH2 


/LO-ORDER 


1620 










/SHIFT REG 


1621 


7123 


1170 




TAD ARITH1 


/GET ORDER IN 


1622 










/MX LIST 


1623 


7124 


0345 




AND KK 37 


/5 LOW ORDER 


1624 


7125 


3150 




DC A TORD 


/BITS OF Jl 


1625 








T QRD = TEMP03 




1626 


7126 


1112 




TAD K0004 


/GET JOB TYPE 


1627 


7127 


4533 




JMS I SHFT 




1630 


7130 


1170 




TAD ARITH1 




1631 


7131 


0346 




AND KK 1 7 


/ 4 HI ORDER OF 


1632 










/ J2 


1633 


7132 


3152 




DC A TJTYPE 


/"JOB TYPE 


1634 








TjTYPE=TEMP05 


1635 


7133 


1413 




TAD I JPNT 


/GET -NUM OF 


1636 


7134 


3344 




DC A CNBLK 


/ITEMS IN NEXT 


1637 










/BLOCK (J3) 


1640 


7135 


1413 




TAD I JPNT 


/GET CDF ( J4 ) 


1641 


7136 


3146 




DC A TCDF 




1642 








T CDF - TE MP 01 




1643 


7137 


1413 




TAD I JPNT 


/GET ST ADDR-1 


1644 


7140 


3011 




DCA GETPNT 


/FOR DATA 


1645 










/BLOCK ( J5 ) 


1646 


7141 


2314 




IS2 JGETS 


/X I T TO C ALL+2 


1647 


7142 


1146 




TAD TCDF 


/CDF INST TO AC 


1650 


7143 


5714 




JMP I JGETS 




1651 










/VARS FOR JGETS 


1652 










/AND BLKCNS 


1653 


7144 


0000 


CNBLK * 


0 


/-NUM OF ITEMS 


1654 










/LEFT IN SWEEP 


1655 












1656 


7145 


0037 


KK37 , 


37 




1657 


7146 


0017 


KK17 , 


17 






1660 






/THIS SUBROUTINE COUNTS DOWN BLOCK 


1661 






/ENTRIES AND 


LINKS TO 


NEXT BLOCK : BLKCNT 


1662 






/CALL: 


BLKCNT 




1663 






/ 


NEW 


FIELD RETURN 


1664 






/ 


NORMAL RETURN 




1665 






/ 


END 


OF FILE RETURN 


1666 


7147 


0000 


BLKCNSi 


■ 0 






1667 


7150 


2 3 44 




ISZ 


CNBLK 


/COUNT ITEMS 


1670 












/IN BLOCK 


1671 


7151 


5366 




JMP 


BLKOK 


/NO OVERFLOW 


1672 


7152 


1411 




TAD 


I GETPNT 


/overflow GET 


1673 












/NEXT BLOCK 


1674 


7153 


7450 




SNA 




/LI =0 IS EOF 


1675 


7154 


5365 




JMP 


BLKFIN 


/EOF EXIT 


1676 


7155 


3344 




DCA 


CNBLK 


/SET COUNT FOR 


1677 












/NEXT BLOCK 


1700 


7156 


1411 




TAD 


I GETPNT 




1701 


7157 


3146 




DCA 


TCDF 


/GET NEW CDF 


1702 


7160 


1411 




TAD 


I GETPNT 


/GET ADDRESS-1 


1703 


7161 


3011 




DCA 


GETPNT 


/FOR NEXT BLOCK 


1704 


7162 


4135 




JMS 


KLUG 




1705 


7163 


1146 




TAD 


TCDF 


/CDF TO AC. 


1706 


7164 


5747 




JMP 


I BLKCNS 


/NEW FIELD 


1707 












/EXIT TO CALL+1 


1710 


7165 


2347 


BLKFIN . 


, ISZ 


BLKCNS 


/END OF FILE 


1711 












/EXIT TO CALL+3 


1712 


7166 


2347 


BLKOK > 


ISZ 


BLKCNS 


/CONTINUE IN 


1713 












/THIS BLOCK 


1714 


7167 


5747 




JMP 


I BLKCNS 


/EXIT TO C ALL+2 


1715 


7170 


0000 


IXPNTS 


, 0 






17 16 


7171 


1045 




TAD 


NC HA 


/NUM OF CELLS 


1717 












/IN DATA POINT 


1720 


7172 


1153 




TAD 


TBUF AD 


/+CURRENT 


1721 












/BUFFER AD DR 


1722 


7173 


3153 




DCA 


TBUF AD 


/UPDATE ADC 


1723 












/BUFFER 


1724 


7174 


2377 




ISZ 


NPOINT 


/IF CNTR DOESNT 


1725 












/OVERFLOW 


1726 


7175 


2370 




ISZ 


IXPNTS 


/EXIT TO CALL+2 


1727 


7176 


5770 




JMP 


I IXPNTS 


/OTHERWISE 


1730 












/TO CALL+1 


1731 












/VARS FOR 


1732 












/SETPNS, IXPNTS 


1733 


7177 


0000 


NPOINT 


A 0 




/-NUM OF ITEMS 


1734 












/LEFT IN SWEEP 


1735 








PAGE 




1736 






/THIS 


SUBROUTINE SETS 




1737 






/SWEEP 


PARAMETERS: SE 


TPNT 


1740 


7200 


0000 


SETPNS 


1 0 






1741 


7201 


1044 




TAD 


SAMA 


/GET -NUM 


1742 


7202 


3610 




DCA 


I KPOINT 


/OF DATA POINTS 


1743 


7203 


1047 




TAD 


ADBUFA 


/GET LOGICAL 1 


1744 












/OF BUFFER 


1745 


7204 


7001 




I AC 






1746 


7205 


1150 




TAD 


TORO 


/GET ORDER OF 


1747 












/CHANNEL IN 


1750 












/BUFFER 


1751 












/(SET BY JGET) 


1752 


7206 


3153 




DCA 


TBUF AD 


/SET ADDR OF 


1753 












/ IS T DATA POINT 


1754 








TBUF AD=TEMP06 




1755 


7207 


5600 




JMP 


I SETPNS 




1756 


7210 


7177 


KPOINT 


t NPOINT 






1757 

1760 

1761 



2050 

2051 

2052 

2053 

2054 

2055 



/SR TO ACCEPT 
/DBL PREC 
/DECIMAL ARC 



1762 


7211 


0000 


RDKBDS, 


0 






1763 


7212 


4331 




jms 


TMESS 


/ASK FOR ARG 


1764 


7213 


3171 


RDL OOP * 


DC A 


A R I TH 2 




1765 


7214 


6031 




KSF 






1766 


7215 


5214 




JMP 


. -1 




1767 


7216 


6034 




KRS 






1770 


7217 


4342 




JMS 


TYPES 


/ECHO 


1771 


7220 


1147 




tad 


KSA VE 


/CHECK FOR CR 


1772 


7221 


7041 




CM A 


I AC 




1773 


7222 


1061 




TAD 


K0215 




1774 


7223 


7650 




SNA 


CLA 


/CR ? 


1775 


7224 


5240 




JMP 


rdone 


/YES ARG COMP 


1776 


7225 


1147 




TAD 


KSAVE 


/NO GET DIGIT 


1777 


7226 


0243 




AND 


K017 




2000 


7227 


3174 




DCA 


ARITH5 




2001 


7230 


7001 




I AC 




/ADD OLD SUM 


2002 


7231 


4533 




JMS 


I SHFT 


/*10<10> TO NUM 


2003 


7232 


4534 




JMS 


I DADD 




2004 


7233 


7326 




TWO 






2005 


7234 


4533 




JMS 


I SHFT 




2006 


7235 


4534 




JMS 


I DADD 




2007 


7236 


1174 




TAD 


ARITH5 




2010 


7237 


5213 




JMP 


rdloop 




2011 


7240 


1171 


RDONEi 


TAD 


ARITH2 


/GET - ARGUMENT 


2012 


7241 


7041 




C M A 


I AC 




2013 


7242 


5611 




JMP 


I RDKBDS 




2014 


7243 


0017 


K017 , 


17 






2015 


7244 


7773 


M0005, 


-5 






2016 












/SR TO SET UP 


2017 












/KW12 CNT TCALS 


2020 


7245 


7200 


TCALS, 


CLA 






2021 


7246 


1062 




TAD 


K0322 




2022 


7247 


4211 




JMS 


RDKBDS 


/GET CLOCK RATE 


2023 


7250 


7200 




CLA 






2024 


7251 


3170 




DCA 


ARITH1 




2025 


7252 


3173 




DCA 


ARITH4 




2026 


7253 


3174 




DCA 


ARITH5 




2027 


7254 


3051 




DCA 


CLKCNT 


/CLEAR COUNT 


2030 


7255 


4534 




JMS 


I DADD 


/MULT RATE BY 2 


2031 


7256 


4534 




JMS 


I DADD 




2032 


7257 


1244 




TAD 


M 00 05 




2033 


7260 


3171 




DCA 


ARITH2 




2034 


7261 


7040 




CM A 






2035 


7262 


3170 




DCA 


ARI TH1 




2036 


7263 


2051 


DVLOOPi 


ISZ 


CLKCNT 




2037 


7264 


4534 




JMS 


I DADD 




2040 


7265 


1173 




tad 


ARITH4 




2041 


7266 


7700 




SMA 


CLA 




2042 


7267 


5263 




JMP 


DVLOOP 




2043 


7270 


5671 




JMP 


I . +1 




2044 


7271 


6522 




CTRLA + 1 




2045 






/BASIC 


SUBROUTINES SHFT. DADD. AND BRAN [SU63AB] 


2046 






/subroutine 


TO SHIFT 


DOUBLE PRECISION WORD (SHFR): SHF 


2047 






/CALL* 


tad 


K X X X X 


/AC HOLDS SHFT COUNT. 



T (10< 
RIGHT 



6N ) 
IS 



/ SHFT 

/ RETURN / L I NK = 0 * AC»0 

/FORMAT OF DOUBLE WORD IS <HI,LO> HI ( 0 ) -ONLY-HOLDS 
/SIGN BIT WILL BE REPLICATED IN RIGHT SHIFTS 
/TEMPORARY STORAGE ALLOCATION 
SHCNT = TEMP01 



SIGN 



NEGATIVE 




2056 






/ARITHMETIC 


REGISTER 


ALLOCATION 


2057 








SHFR 


= AR I THl 


/ARITHl-2 ARE 


2060 












/FOR SHIFTING 


2061 


7272 


0000 


SHFTS, 


0 






2062 


7273 


7100 




CLL 






2063 


7274 


7450 




SNA 




/IF SHIFT COUNT 


2064 


7275 


5672 




JMP 


I SHFTS 


/=0 EXIT 


2065 


7276 


7500 




SMA 




/RIGHT OR LEF ? 


2066 


7277 


7061 




CML 


CM A I A C 


/LEF SET LINK=1 


2067 












/AND COUNT NEG 


2070 


7300 


3146 




DC A 


SHCNT 




2071 


7301 


7430 




SZL 




/RIGHT SHIFT? 


2072 


7302 


5317 




JMP 


SHLEFT 


/NO-SHIFT LEFT 


2073 


7303 


1170 


SHRI HT . 


TAD 


SHFR 


/SHIFT DONE 


2074 












/ON AR I THl -2 


2075 


7304 


7510 




SPA 




/SET L=1 IF NEG 


2076 


7305 


7020 




CML 






2077 


7306 


7010 




rar 






2100 


7307 


3170 




DC A 


SHFR 


/SHFT WITH 


2101 












/SIGN REP 


2102 


7310 


1171 




TAD 


SHFR +1 


/SHIFT LO ORDER 


2103 












/HALF 


2104 


7311 


7010 




RAR 






2105 


7312 


3171 




DC A 


SHF R + 1 




2106 


7313 


7100 




CLL 






2107 


7314 


2146 




IS2 


SHCNT 


/ENOUGH SHIFTS? 


2110 


7315 


5303 




JMP 


shriht 


/NO-CONT INUE 


2111 


7316 


5672 




JMP 


I SHFTS 


/YES-EXIT 


2112 


7317 


1171 


SHLEFT, 


TAD 


SHFR *►! 


/SHIFT LO-ORDER 


2113 


7320 


7104 




CLL 


RAL 


/0 TO LSB 


2114 


7321 


3171 




DC A 


SHFR+1 




2115 


7322 


1170 




TAD 


SHFR 


/SHIFT H I -ORDER 


2116 


7323 


7004 




RAL 






2117 


7324 


3170 




DC A 


SHFR 




2120 


7325 


7100 




CLL 






2121 


7326 


2146 




ISZ 


SHCNT 


/ENOUGH? 


2122 


7327 


5317 




JMP 


SHLEFT 


/NO-CONTINUE 


2123 


7330 


5672 




JMP 


I SHFTS 




2124 


7331 


0000 


TMESS, 


0 




/ROUT TO TYPE 


2125 












/<CRLF>*: 


2126 


7332 


3762 




DC A 


I TMCHX 


/*CHAR IN AC 


2127 


7333 


1363 




tad 


ADMESS 


/ ADDR OF TEXT 


2130 


7334 


3017 




DC A 


TMPNTR 




2131 








TMPNTR=17 




2132 


7335 


1417 


TML.OOP, 


TAD 


I TMPNTR 


/GET CHARACTER 


2133 


7336 


7450 




SNA 




/END OF TEXT? 


2134 


7337 


5731 




JMP 


I TMESS 


/YES, EXIT 


2135 


7340 


4342 




JMS 


TYPES 




2136 


7341 


5335 




JMP 


TMLOOP 




2137 


7342 


0000 


TYPES, 


0 




/SUBRT TO 


2140 


7343 


6002 




I OF 




/TYPE CHAR 


2141 


7344 


6046 




TLS 




/IN AC 


2142 


7345 


6041 




TSF 






2143 


7346 


5345 




JMP 


.-1 




2144 


7347 


6042 




TCF 






2145 


7350 


3147 




DC A 


KSAVE 




2146 








KSAVE=TEMP02 




2147 


7351 


6031 




KSF 






2150 


7352 


5742 




JMP 


I TYPES 




2151 


7353 


6036 




KRB 






2152 


7354 


1364 




TAD 


kmctrl 




2153 


7355 


7640 




SZA 


CLA 




2154 


7356 


5742 




JMP 


I TYPES 






2155 


7357 


6201 




CDF 


0 




2156 


7360 


5761 




JMP 


I +1 




2157 


7361 


6627 




kbdchk 




2160 


7362 


6267 


TMCHX , 


TMCH 




2161 


7363 


6264 


AOMESS » 


TXMESS-1 




2162 


7364 


7557 


KMCTRL . 


-221 




2163 


7365 


7404 


NTOUT, 


INTOUT 




2164 


7366 


6031 


INKBD. 


KSF 




/KEYBOARD UP? 


2165 


7367 


5372 




JMP 


INTTY 


/NO* LOOK AT TTY 


2166 


7370 


6036 




KRB 




/YES* READ CHAR 


2167 


7371 


3175 




DC A 


KBDBUF 




2170 


7372 


6041 


INTTY, 


TSF 




/TTY DONE? 


2171 


7373 


5765 




JMP 


I NTOUT 


/NO RESET AC . L 


2172 


7374 


6042 




TCF 




/YES, CLEAR FLAG 


2173 


7375 


3177 




DC A 


TTYFLG 


/CLEAR SOFTWARE 


2174 












/FLAG TTY NOT 


2175 












/IN PROGRESS 


2176 


7376 


1176 




TAD 


TTYBUF 


/MORE TO TYPE? 


2177 


7377 


7450 




SNA 






2200 


7400 


5204 




JMP 


INTOUT 


/NO, EXIT 


2201 


7401 


6046 




TLS 




/YES, TYPE IT 


2202 


7402 


3177 




DC A 


TTYFLG 


/SET SOFTWARE 


2203 












/FLAG: TTY IN 


2204 












/PROGRESS 


2205 


7403 


3176 




DC A 


TTYBUF 


/CLEAR BUFFER 


2206 


7404 


1067 


INTOUT. 


TAD 


LSAVE 


/RESTORE LINK 


2207 


7405 


7104 




CL L 


RAL 




2210 


7406 


1066 




TAD 


AS AVE 


/RESTORE AC 


2211 


7407 


6244 




RMF 






2212 


7410 


6001 




ION 






2213 


7411 


5400 




JMP 


I 0 




2214 


7412 


0000 


LADDS, 


0 




/SUBRT TO DO 


2215 












/DBL PREC ADD 


2216 












/TO PUTPNT 


2217 












/GETPNT LIST 


2220 












/ ( 28 ) 


2221 


7413 


3146 




DC A 


TLAD 




2222 








tlad 


i =T EMP01 




2223 


7414 


1030 




TAD 


WSWI T2 




2224 


7415 


7650 




SNA 


CLA 




2225 


7416 


5433 




JMP 


I INDATi 




2226 


7417 


1146 




TAD 


TLAD 


/ADD LO-ORDER 


2227 


7420 


1411 




TAD 


I GETPNT 


/UPDATE LO 


2230 


7421 


3412 




DC A 


I PUTPNT 


/ORDER CALC PNT 


2231 


7422 


1146 




TAD 


TLAD 


/DO SIGN EXTEND 


2232 












/OF ADC WORD 


2233 












/TO H I -ORDER 


2234 


7423 


7710 




SPA 


CLA 




2235 


7424 


7040 




CM A 






2236 


7425 


7430 




S1L 




/L=l INDICATES 


2237 












/L O-QRDER 


2240 












/OVERFLOW 


2241 


7426 


7001 




I AC 




/ADD IN OVRFLO 


2242 


7427 


1411 




TAD 


I GETPNT 


/UPDATE HI 


2243 


7430 


3412 




DC A 


I PUTPNT 


/ORDER CALC PNT 


2244 


7431 


7100 




CLL 






2245 


7432 


5612 




JMP 


I LADDS 




2246 


7433 


0000 


SQ ADS i 


0 




/SUBRT TO SQRE 


2247 












/AC AND ADD TO 


2250 












/TRIP PREC LIST 


2251 












/(62+56N 


2252 












/ A PP X 300) 


2253 


7434 


7650 




SPA 


SNA 


/GET MAGNITUDE 




2254 


7435 


2255 


7436 


2256 




2257 


7437 


2260 


7440 


2261 


7441 


2262 


7442 


2263 


7443 


2264 


7444 


2265 


7445 


2266 




2267 


7446 


2270 




2271 




2272 


7447 


2273 




2274 




2275 


7450 


2276 


7451 


2277 




2300 




2301 


7452 


2302 


7453 


2303 


7454 


2304 


7455 


2305 


7456 


2306 




2307 




2310 


7457 


2311 


7460 


2312 


7461 


2313 


7462 


2314 


7463 


2315 




2316 


7464 


2317 




2320 


7465 


2321 




2322 


7466 


2323 


7467 


2324 


7470 


2325 




2326 


7471 


2327 


7472 


2330 




2331 


7473 


2332 


7474 


2333 


7475 


2334 




2335 


7476 


2336 




2337 


7477 


2340 


7500 


2341 


7501 


2342 


7502 


2343 


7503 


2344 


7504 


2345 


7505 


2346 


7506 


2347 




2350 




2351 


7507 


2352 


7510 



7161 

3147 

1147 

3171 

3170 

3174 

3173 

1147 SQLOOP, 
7450 



5256 



7110 



3147 

7430 



4534 

7001 

4533 

5244 

1174 SQDONE > 



1411 

3412 

7004 

1173 

4212 

5633 

6135 CLKINT, 

0164 

7650 

5733 

1060 

3146 ST OR WC > 
1047 

3010 STORMA. 
1030 

3147 



1042 

6132 

6135 WLOOP. 

7700 

5301 

2147 

5301 

5312 



6135 ADLOOP » 
7700 



CL L CM L CM A I AC 
DC A TSQAD 
TSQAD=TEMP02 



tad 


TSQAD 


DC A 


ARITH2 


DC A 


ARITH1 


DC A 


ARITH5 


DC A 


ARITH4 


TAD 


TSQAD 


SNA 




JMP 


SQDONE 


CLL 


RAR 


DC A 


TSQAD 


S2L 





JMS 


I 


DADD 


I AC 






JMS 


I 


SHF T 


JMP 


SQLOOP 


TAD 


AR 


ITH5 



TAD 


I GETPNT 


DC A 


I PU TP NT 


RAL 




TAD 


AR ITH4 


JMS 


LADDS 


JMP 


I SQADS 


CL S A 




AND 


XMASK 


SNA 


CLA 


JMP 


I INKBDX 


TAD 


KBL A 


DC A 


BLA 


BL A = 


TEMP01 


TAD 


ADBUFA 


DC A 


BUFA 


TAD 


KS YT I M*1 


DC A 


SYTIM 


SVTI 


M=TEMP02 


TAD 


KMODE 


CLLR 


CLSA 




SMA 


CLA 


JMP 


, -2 


ISZ 


SYTIM 


JMP 


WLOOP 


JMP 


CHNSET 


CLSA 


SMA 


CLA 



/LOAD DBL 
/PREC. AC 



/MULTIPLIER 
/ANYMORE TO ADD 
/TO PART PROD? 
/NO-UPDATE 
/CALC BUFFER 
/AND EXIT 
/LINK TELLS 
/WHETHER TO ADD 
/IN MORE 
/ROTAT FOR NEXT 
/L = 1 » ADD 
/MULTIPLICAND 
/TO PART PROD 

/SHIFT PART 
/PROD 1 LEFT 
/DO SOME MORE 
/ADD DBL PREC 
/AC TO 3-WORD 
/ENTRY 
/LO-ORDER 

/OVERFLOW BIT 
/PLUS HI ORDER 
/ADD TO 2-WORD 
/ENTRY 
/TRIP PREC 
/IN ALL 
/COME HERE ON 
/CLOCK INTERPT 
/ CHK FOR 
/SYNC MASK 
/NO SYNC TRY 
/OTHER DEVICES 
/NUM OF SAMPLES 
/TO ACCEPT 

/STRT OF BUFF-1 

/-NUM SAMPLING 
/INTERVALS TO 
/WAIT 

/SET KW12 CNTRL 
/REGISTER 
/WAIT FOR 
/PRE-ANALYSIS 
/DELAY 



/BYPASS WAIT 
/ACCEPT SWEEP 
/INTO BUFFER 
/WAIT FOR 
/OVRFLO 




2353 

2354 

2355 

2356 

2357 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2450 

2451 



7511 

7512 

7513 

7514 

7515 

7516 

7517 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 

7530 

7531 

7532 

7533 

7534 

7535 



5307 

2322 

1322 

1335 

7640 

5321 

1334 

3322 

6141 

0110 

0002 

7510 

7001 

3410 

2146 

5307 

5732 

6275 

7366 

0110 

7667 



CHNSET 



ISAM, 



JMP 


ADLOOP 


/NOT 


READY 


ISZ 


LS AM 


/GET 


CHANNEL 


TAD 


LS AM 






TAD 


ZZ 






SZ A 


CLA 






JMP 


LSAM-1 






tad 


K0110 






DC A 


LSAM 






LINC 






110 




/SAM 


INST 


2 




/PDP 




SPA 








I AC 




/CVER 


T IS COM 


DCA 


I BUFA 


/STORE POINT 


ISZ 


BLA 


/HAVE 


ENOUGH? 


JMP 


ADLOOP 


/NO GET NEXT 






/CON V 


ERSION 


JMP 


I .+1 


/YES 


EXIT 



I NKBDX , 
K0 11 0 * 
ZZ, 



ADDUN 
INKBD 
110 
-110-NCHAN 



/SUBROUTINE FOR BRANCHING ON hatch OF AC AGAINST TABLE: BRAN 



/ 

/ 

/ 

/ 

/ 



BRAN 

ADDRESS OF TABLE 

RETURN HERE IF FIRST ENTRY MEETS MATCH 
ETC. 

NONE MATCH 



/TABLE. FIRST ENTRY 
/ SECOND ENTRY 

/ -LAST ENTRY 

/TEMPORARY STORAGE ALLOCATION 









BPNT = TEMP01 








BSAV£ = TEMP02 


7536 


0000 


BRANS, 


0 




7537 


3147 




DCA 


BSAVE 


7540 


1736 




TAD 


I BRANS 


7541 


3146 




DCA 


BPNT 


7542 


1546 


BRLOOP, 


TAD 


I BPNT 


7543 


7500 




SMA 




7544 


7041 




CM A 


I AC 


7545 


2336 




ISZ 


BRANS 


7546 


1147 




TAD 


BSAVE 


7547 


7650 




SNA 


CLA 


7550 


5736 




JMP 


I BRANS 


7551 


1546 




TAD 


I BPNT 


7552 


2146 




ISZ 


BPNT 


7553 


7700 




SMA 


CLA 


7554 


5342 




JMP 


BRLOOP 


7555 


2336 




ISZ 


BRANS 


7556 


5736 




JMP 


I BRANS 






/SUBROUT I NE 


TO DO DOl 






/AR I THMET I C 


REGISTER 



/GET ADDR OF 1ST 
/ENTRY OF MATCH 
/LIST 

/LOOK AT ENTRY 
/GET MAGNITUDE 

/INDEX RETN ADDR 
/MATCH FOUND? 

/YES-EXIT TO RTN 
/AS CALCULATED 
/NO-TEST FOR 
/LAST ENTRY. 
/INDEX ENTRY 
/POINTER 

/-INDICATES THIS 
/ WAS LAST ENTRY 
/NOT LAST CONT 
/EXIT NOT IN 
/LIST NO MATCH 



AND 4-5: DADD 



7557 0000 DADDS, 



DBLAC=ARITH1 
DBLARG=AR I TH4 
0 



/ADD LO-ORDER 



( 21 ) 




2452 


7560 


7300 




CL L CLA 




2453 


7561 


1171 




tad dblac+i 




2454 


7562 


1174 




TAD DBLARG+1 




2455 


7563 


3174 




DC A DBLARG+1 




2456 


7564 


7004 




RAL 


/CARRY 


2457 


7565 


1170 




TAD DBLAC 


/ADD H I -ORDER 


2460 


7566 


1173 




TAD DBLARG 




2461 


7567 


3173 




DC A DBLARG 


/LEAVE IN 


2462 










/ARITH4-5, 


2463 


7570 


7100 




CL L 




2464 


7571 


5757 




JMP I DADDS 




2465 


7572 


0232 


I KL I ST * 


+ 232 


/Z 


2466 


7573 


0222 




+ 222 


/R 


2467 


7574 


0201 




+ 201 


/A 


2470 


7575 


0221 




+ 221 


/Q 


2471 


7576 


0215 




+ 215 


/CR 


2472 


7577 


0212 




+ 212 


/LF 


2473 


7600 


0326 




+ 326 


/V 


2474 


7601 


0303 




+ 303 


/c 


2475 


7602 


0330 




+ 330 


/X 


2476 


7603 


0204 




+ 204 


/D 


2477 


7604 


0327 




+ 327 


/W 


2500 


7605 


0324 




+ 324 


/T 


2501 


7606 


7460 




-320 


/P - PLOT MODE 


2502 


7607 


6141 


MONITR# 


LINC 


/SR TO SET UP 


2503 








LMODE 


/DIAL BOOT STRAP 


2504 


1610 


0076 




SET I 16 




2505 


1611 


2015 




2015 




2506 


1612 


0642 




LDF 2 




2507 


1613 


1020 




lda I 




2510 


1614 


07 21 




RCG I 




2511 


1615 


1076 




STA I 16 


/TO LDF 2 


2512 


1616 


1020 




LDA I 




2513 


1617 


7300 




7300 




2514 


1620 


1076 




STA I 16 




2515 


1621 


0602 




LIF 2 


/RTN TO 


2516 


1622 


0643 




LDF 3 




2517 


1623 


6016 




JMP 16 


/DIAL 


2520 








PMODE 




2521 


7624 


1175 


WRITE# 


TAD KBDBUF 




2522 


7625 


4434 




JMS I TMESS2 




2523 


7626 


3171 


LOOPW# 


DCA ARITH2 




2524 


7627 


6031 




KSF 




2525 


7630 


5227 




JMP ,-l 




2526 


7631 


6034 




KRS 




2527 


7632 


4435 




JMS I TYPE? 




2530 


7633 


1147 




TAD KSAVE 




2531 


7634 


7041 




CM A I A C 




2532 


7635 


1061 




TAD K0215 




2533 


7636 


7650 




SNA CLA 




2534 


7637 


5246 




JMP ARGDUN 




2535 


7640 


1147 




TAD KSAVE 




2536 


7641 


0036 




AND K? 7 




2537 


7642 


1171 




TAD ARITH2 




2540 


7643 


7106 




RTL CL L 




2541 


7644 


7004 




RAL 




2542 


7645 


5226 




JMP LOOPW 




2543 


7646 


1171 


ARGDUN# 


TAD ARITH2 




2544 


7647 


7112 




RTR CLL 




2545 


7650 


7010 




RAR 




2546 


7651 


1357 




TAD KK5K 




2547 


7652 


3311 




DCA TP WORD 




2550 


7653 


3030 




DCA WSWITZ 






2551 


7654 


3162 




DC A 


ASWIT 


2552 


7655 


1104 




TAD 


KM200Z 


2553 


7656 


3360 




DC A 


CTR 


2554 


7657 


1107 




TAD 


KZ377 


2555 


7660 


3015 




DC A 


15 


2556 


7661 


5505 




JMP 


I STWZ 


2557 


7662 


6214 


INDATA* 


RDF 




2560 


7663 


1272 




TAD 


KCDF0 


2561 


7664 


3274 




DC A 


HERE 


2562 


7665 


1274 




TAD 


HERE 


2563 


7666 


3 30 0 




DC A 


THERE 


2564 


7667 


1274 




TAD 


HERE 


2565 


7670 


3320 




DC A 


WHERE 


2566 


7671 


1411 




TAD 


I GETRNT 


2567 


7672 


6201 


KCDF0 * 


CDF 


0 


2570 


7673 


3415 




DC A 


I 15 


2571 


7674 


0000 


HERE * 


0 




2572 


7675 


1411 




TAD 


I GETPNT 


2573 


7676 


6201 




CDF 


0 


2574 


7677 


3415 




DC A 


I 15 


2575 


7700 


0000 


THERE* 


0 




2576 


7701 


2360 




I S 2 


CTR 


2577 


7702 


5506 




JMP 


I ZLADR 


2600 


7703 


4305 




JMS 


DOTAPE 


2601 


7 7 04 


5506 




JMP 


I ZLADR 


2602 


7705 


0000 


DOT APE * 


0 




2603 


7706 


6141 




LINC 


2604 


7707 


0640 




640 




2605 


7710 


07 14 




714 




2606 


7711 


0000 


TP WO RD * 


0 




2607 


7712 


0002 




2 




2610 


7713 


2311 




ISZ 


TP WORD 


2611 


7714 


1104 




TAD 


KM200Z 


2612 


7715 


3360 




DC A 


CTR 


2613 


7716 


1107 




TAD 


KZ377 


2614 


7717 


3015 




DC A 


15 


2615 


7720 


0000 


WHERE* 


0 




2616 


7721 


5705 




JMP 


I OOTAPE 


2617 


7722 


6201 


WRIDUN, 


CDF 


0 


2620 


7723 


3415 




DC A 


I 15 


2621 


7724 


3415 
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